diff options
| author | Ludovic Court`es | 2006-06-06 09:05:53 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-06-06 09:05:53 +0000 |
| commit | ae5fa7ed8c2376416e217cfd86ac75238f338b0b (patch) | |
| tree | 2855aec23813f715ec51123d13abfc9dbf27d002 | |
| parent | f4005161c08d63710871855729198bef5fe81cfb (diff) | |
| download | skribilo-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
| -rw-r--r-- | src/guile/skribilo/biblio.scm | 9 |
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)) + ;;; ====================================================================== ;;; |