From ae5fa7ed8c2376416e217cfd86ac75238f338b0b Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Tue, 6 Jun 2006 09:05:53 +0000 Subject: 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 --- src/guile/skribilo/biblio.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/guile') 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)) + ;;; ====================================================================== ;;; -- cgit v1.2.3