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