aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-04-15 21:41:11 +0200
committerLudovic Courtès2008-04-15 21:41:11 +0200
commit2365d32facfecd2b946ff907815f2da31bc8e3bb (patch)
tree6b5313a1e95799b39d252a39e80340333bdb0a4f
parente45c69c4cedf41be1d5fae8cf6b1d13500f945d9 (diff)
downloadskribilo-2365d32facfecd2b946ff907815f2da31bc8e3bb.tar.gz
skribilo-2365d32facfecd2b946ff907815f2da31bc8e3bb.tar.lz
skribilo-2365d32facfecd2b946ff907815f2da31bc8e3bb.zip
Use SRFI-35 exceptions in `(skribilo biblio author)'.
* src/guile/skribilo/biblio/author.scm (bib-sort/first-author-last-name): Use `raise'.
-rw-r--r--src/guile/skribilo/biblio/author.scm17
1 files changed, 12 insertions, 5 deletions
diff --git a/src/guile/skribilo/biblio/author.scm b/src/guile/skribilo/biblio/author.scm
index cc176e0..df6c9b4 100644
--- a/src/guile/skribilo/biblio/author.scm
+++ b/src/guile/skribilo/biblio/author.scm
@@ -1,6 +1,6 @@
;;; author.scm -- Handling author names.
;;;
-;;; Copyright 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -21,11 +21,14 @@
(define-module (skribilo biblio author)
:use-module (srfi srfi-13)
:use-module (srfi srfi-14)
+ :autoload (srfi srfi-34) (raise)
+ :use-module (srfi srfi-35)
:use-module (skribilo biblio abbrev)
:autoload (skribilo ast) (markup-option markup-body markup-ident)
- :autoload (skribilo lib) (skribe-error)
:autoload (skribilo utils strings) (make-string-replace)
:autoload (skribilo package base) (it)
+ :use-module (skribilo utils syntax)
+
:export (comma-separated->author-list
comma-separated->and-separated-authors
@@ -161,9 +164,13 @@
(let ((check-author (lambda (e)
(if (not (markup-option e 'author))
- (skribe-error 'bib-sort/first-author-last-name
- "no author for this bib entry"
- (markup-ident e))
+ (let ((msg (_ "no author for this bib entry")))
+ (raise (condition
+ (&message
+ (message (string-append
+ "bib-sort/first-author-last-name: "
+ (markup-ident e) ": "
+ msg))))))
#t))))
(sort entries
(lambda (e1 e2)