aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-29 13:23:11 +0000
committerLudovic Court`es2007-08-29 13:23:11 +0000
commit30c8fb7c54f4586ded4e89ec653edf801268cc8e (patch)
treec41c7e3ee0df2288d348baccca839f9034787e78 /src/guile
parentcaefe7b373e06bfb842ed99de4bd69d0d46c0488 (diff)
parentebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8 (diff)
downloadskribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.tar.gz
skribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.tar.lz
skribilo-30c8fb7c54f4586ded4e89ec653edf801268cc8e.zip
biblio: SRFI'd `author.scm'.
* src/guile/skribilo/biblio/author.scm: Use `srfi-14'. (%no-comma): New. (comma-separated->author-list): Use `string-tokenize'. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-159
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/biblio/author.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/guile/skribilo/biblio/author.scm b/src/guile/skribilo/biblio/author.scm
index 785f948..cc176e0 100644
--- a/src/guile/skribilo/biblio/author.scm
+++ b/src/guile/skribilo/biblio/author.scm
@@ -20,6 +20,7 @@
(define-module (skribilo biblio author)
:use-module (srfi srfi-13)
+ :use-module (srfi srfi-14)
:use-module (skribilo biblio abbrev)
:autoload (skribilo ast) (markup-option markup-body markup-ident)
:autoload (skribilo lib) (skribe-error)
@@ -44,13 +45,14 @@
;;;
;;; Code:
+(define %no-comma
+ (char-set-complement (char-set #\,)))
+
(define (comma-separated->author-list authors)
;; Return a list of strings where each individual string is an author
;; name. AUTHORS is a string representing a list of author names separated
;; by a comma.
-
- ;; XXX: I should use SRFI-13 instead.
- (string-split authors #\,))
+ (string-tokenize authors %no-comma))
(define (comma-separated->and-separated-authors authors)
;; Take AUTHORS, a string containing comma-separated author names, and