From ebcd9898a1f6001fde5f2ef7528aa6af3c81cbd8 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Wed, 29 Aug 2007 13:19:14 +0000 Subject: 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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-101 --- src/guile/skribilo/biblio/author.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3