summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-06-06 09:05:53 +0000
committerLudovic Court`es2006-06-06 09:05:53 +0000
commitae5fa7ed8c2376416e217cfd86ac75238f338b0b (patch)
tree2855aec23813f715ec51123d13abfc9dbf27d002 /src/guile
parentf4005161c08d63710871855729198bef5fe81cfb (diff)
downloadskribilo-ae5fa7ed8c2376416e217cfd86ac75238f338b0b.tar.gz
skribilo-ae5fa7ed8c2376416e217cfd86ac75238f338b0b.tar.lz
skribilo-ae5fa7ed8c2376416e217cfd86ac75238f338b0b.zip
Added `bib-map'.
* src/guile/skribilo/biblio.scm (bib-map): New. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-84
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/biblio.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/guile/skribilo/biblio.scm b/src/guile/skribilo/biblio.scm
index c9c0637..d9aa0ed 100644
--- a/src/guile/skribilo/biblio.scm
+++ b/src/guile/skribilo/biblio.scm
@@ -36,7 +36,7 @@
:use-module (ice-9 optargs)
:export (bib-table? make-bib-table default-bib-table
- bib-add! bib-duplicate bib-for-each
+ bib-add! bib-duplicate bib-for-each bib-map
skribe-open-bib-file parse-bib))
(fluid-set! current-reader %skribilo-module-reader)
@@ -76,9 +76,14 @@
(define* (bib-for-each proc :optional (table (default-bib-table)))
(hash-for-each (lambda (ident entry)
- (proc entry))
+ (proc ident entry))
table))
+(define* (bib-map proc :optional (table (default-bib-table)))
+ (hash-map->list (lambda (ident entry)
+ (proc ident entry))
+ table))
+
;;; ======================================================================
;;;