diff options
| author | Ludovic Court`es | 2005-11-28 14:23:48 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2005-11-28 14:23:48 +0000 |
| commit | 559d3f64f4b051a39c91a3d53d3b41deee8ae42f (patch) | |
| tree | 2f4b5c13a79ee9c093edb204c3f2d7f70e2b2e12 /src/guile/skribilo/ast.scm | |
| parent | d14b60a0b4ea1eb5ea84d74b1b2fe59d24ae9bf3 (diff) | |
| download | skribilo-559d3f64f4b051a39c91a3d53d3b41deee8ae42f.tar.gz skribilo-559d3f64f4b051a39c91a3d53d3b41deee8ae42f.tar.lz skribilo-559d3f64f4b051a39c91a3d53d3b41deee8ae42f.zip | |
Created a canonical module for Skribilo syntactic sugar.
* src/guile/skribilo/utils/syntax.scm: New.
Export `unless', `when', formerly defined in `lib.scm'.
* src/guile/skribilo.scm: Use `(skribilo utils syntax)' and
`%skribilo-module-reader'. Fixed parameterization of `*verbose*'.
* src/guile/skribilo/ast.scm: Use `(skribilo utils syntax)' and
`%skribilo-module-reader'.
* src/guile/skribilo/biblio.scm: Likewise.
* src/guile/skribilo/engine.scm: Likewise.
* src/guile/skribilo/writer.scm: Likewise.
* src/guile/skribilo/location.scm: Likewise.
* src/guile/skribilo/lib.scm: Likewise.
* src/guile/skribilo/source.scm: Likewise.
* src/guile/skribilo/evaluator.scm: Likewise.
Use `*document-path*' instead of `skribe-path'.
* src/guile/skribilo/module.scm: Use `(system reader confinement)'.
(%skribilo-user-imports): Moved some modules to...
(%skribilo-user-autoloads): New.
(define-skribe-module): Auto-load the modules specified in
`%skribilo-user-autoloads'. Use `set-current-reader' instead of the
`#:reader' option of `define-module'.
* src/guile/skribilo/engine/lout.scm: Commented out a piece of text.
git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-13
Diffstat (limited to 'src/guile/skribilo/ast.scm')
| -rw-r--r-- | src/guile/skribilo/ast.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index fc6859e..b1c9a14 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -22,6 +22,7 @@ (define-module (skribilo ast) :use-module (oop goops) :autoload (skribilo location) (location?) + :use-module (skribilo utils syntax) :export (<ast> ast? ast-loc ast-loc-set! ast-parent ast->string @@ -54,7 +55,7 @@ ;;; ;;; Code: -(read-set! keywords 'prefix) +(set-current-reader %skribilo-module-reader) (define *node-table* (make-hash-table)) ; Used to stores the nodes of an AST. |