diff options
| author | Ludovic Court`es | 2006-05-10 16:03:57 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-05-10 16:03:57 +0000 |
| commit | 07752b6d47bef3591f1a112a6e0bbcaebfb2fdd3 (patch) | |
| tree | a87a5f6d1d67e068733d5fb4b393e321c2e4fc1b /src/guile/skribilo/biblio.scm | |
| parent | ee58c4388deb347e880c3ec22b043b2a4e56cc6b (diff) | |
| download | skribilo-07752b6d47bef3591f1a112a6e0bbcaebfb2fdd3.tar.gz skribilo-07752b6d47bef3591f1a112a6e0bbcaebfb2fdd3.tar.lz skribilo-07752b6d47bef3591f1a112a6e0bbcaebfb2fdd3.zip | |
Added `bib-for-each'. Fixed binding issues in the evaluator and compat.
* src/guile/skribilo/biblio.scm (bib-for-each): New.
* src/guile/skribilo/evaluator.scm: Autoload `engine' also when
`*current-engine*' is met.
* src/guile/skribilo/utils/compat.scm (skribe-read): Export it.
git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-82
Diffstat (limited to 'src/guile/skribilo/biblio.scm')
| -rw-r--r-- | src/guile/skribilo/biblio.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/guile/skribilo/biblio.scm b/src/guile/skribilo/biblio.scm index 082fb99..c9c0637 100644 --- a/src/guile/skribilo/biblio.scm +++ b/src/guile/skribilo/biblio.scm @@ -33,8 +33,10 @@ :autoload (skribilo reader) (%default-reader) :autoload (skribilo parameters) (*bib-path*) :autoload (ice-9 format) (format) + :use-module (ice-9 optargs) + :export (bib-table? make-bib-table default-bib-table - bib-add! bib-duplicate + bib-add! bib-duplicate bib-for-each skribe-open-bib-file parse-bib)) (fluid-set! current-reader %skribilo-module-reader) @@ -66,15 +68,18 @@ (set! *bib-table* (make-bib-table "default-bib-table"))) *bib-table*) -;; -;; Utilities -;; (define (%bib-error who entry) (let ((msg "bibliography syntax error on entry")) (if (%epair? entry) (skribe-line-error (%epair-file entry) (%epair-line entry) who msg entry) (skribe-error who msg entry)))) +(define* (bib-for-each proc :optional (table (default-bib-table))) + (hash-for-each (lambda (ident entry) + (proc entry)) + table)) + + ;;; ====================================================================== ;;; ;;; BIB-DUPLICATE |