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/guile')

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