diff options
| author | Ludovic Courtès | 2009-03-24 23:10:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-03-24 23:10:54 +0100 |
| commit | 3a72d5b1cf38fc3c579336e76e2b0354dcd4c4ae (patch) | |
| tree | 30ced47ce50672789f9e087122bcd86005d3db92 /src/guile/skribilo/utils/syntax.scm | |
| parent | 5c14d481ac0def0d81f67456a648502d89de5a06 (diff) | |
| download | skribilo-3a72d5b1cf38fc3c579336e76e2b0354dcd4c4ae.tar.gz skribilo-3a72d5b1cf38fc3c579336e76e2b0354dcd4c4ae.tar.lz skribilo-3a72d5b1cf38fc3c579336e76e2b0354dcd4c4ae.zip | |
Add `(skribilo-module-syntax)'.
* src/guile/skribilo/utils/syntax.scm (skribilo-module-syntax): New
macro.
* src/guile/*/*.scm: Use `(skribilo-module-syntax)' instead of
`(fluid-set! current-reader %skribilo-module-reader)'. The goal is to
be more compilation-friendly.
Diffstat (limited to 'src/guile/skribilo/utils/syntax.scm')
| -rw-r--r-- | src/guile/skribilo/utils/syntax.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm index b905871..4cb856f 100644 --- a/src/guile/skribilo/utils/syntax.scm +++ b/src/guile/skribilo/utils/syntax.scm @@ -22,7 +22,7 @@ :use-module (system reader library) :use-module (system reader compat) ;; make sure `current-reader' exists :use-module (system reader confinement) - :export (%skribilo-module-reader + :export (%skribilo-module-reader skribilo-module-syntax _ N_) :export-syntax (unwind-protect unless when)) @@ -58,6 +58,10 @@ (list 'reader/record-positions) '()))) +(define-macro (skribilo-module-syntax) + "Install the syntax reader for Skribilo modules." + (fluid-set! current-reader %skribilo-module-reader) + #t) (define-macro (unwind-protect expr1 expr2) |