diff options
| author | Ludovic Courtès | 2009-03-24 22:09:51 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-03-24 22:09:51 +0100 |
| commit | cd3ad5ba23369bae8ae3558d2b4877974f5e36aa (patch) | |
| tree | fa3253ff80492899d8b881a9fcdd18d2897b7b42 /src/guile/skribilo/utils/syntax.scm | |
| parent | 06a19c6c58265739ec0fc8ff540c8157281cff6c (diff) | |
| download | skribilo-cd3ad5ba23369bae8ae3558d2b4877974f5e36aa.tar.gz skribilo-cd3ad5ba23369bae8ae3558d2b4877974f5e36aa.tar.lz skribilo-cd3ad5ba23369bae8ae3558d2b4877974f5e36aa.zip | |
Have `*document-reader*' default to `#f'.
* src/guile/skribilo/biblio.scm (parse-bib): Use `*document-reader*',
not `%default-reader'.
* src/guile/skribilo/reader.scm (%default-reader): Remove. This removes
a cyclic dependency between `(skribilo reader)' and `(skribilo reader
skribe)'.
(*document-reader*): Default to `#f'.
* src/guile/skribilo/utils/compat.scm (%skribe-reader): Define, not
`set!'.
* src/guile/skribilo/utils/syntax.scm (%skribe-reader): Remove. This
removes the dependency on `(skribilo reader)'.
Diffstat (limited to 'src/guile/skribilo/utils/syntax.scm')
| -rw-r--r-- | src/guile/skribilo/utils/syntax.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm index 3c58fb8..b905871 100644 --- a/src/guile/skribilo/utils/syntax.scm +++ b/src/guile/skribilo/utils/syntax.scm @@ -1,6 +1,6 @@ ;;; syntax.scm -- Syntactic candy for Skribilo modules. ;;; -;;; Copyright 2005, 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2007, 2008, 2009 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -19,11 +19,10 @@ ;;; USA. (define-module (skribilo utils syntax) - :use-module (skribilo reader) :use-module (system reader library) :use-module (system reader compat) ;; make sure `current-reader' exists :use-module (system reader confinement) - :export (%skribe-reader %skribilo-module-reader + :export (%skribilo-module-reader _ N_) :export-syntax (unwind-protect unless when)) @@ -59,9 +58,6 @@ (list 'reader/record-positions) '()))) -(define %skribe-reader - ;; The Skribe syntax reader. - (make-reader 'skribe)) (define-macro (unwind-protect expr1 expr2) |