diff options
| author | Ludovic Courtes | 2005-07-01 23:55:56 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-07-01 23:55:56 +0000 |
| commit | efea4dc93f2565555e47de0bfd027614a9c8674d (patch) | |
| tree | 393a916bf215a675ea75af989f1c66adfe9848c9 /src/guile/skribilo/resolve.scm | |
| parent | a85155f7c411761cfbd75431f265675ae0f394e3 (diff) | |
| download | skribilo-efea4dc93f2565555e47de0bfd027614a9c8674d.tar.gz skribilo-efea4dc93f2565555e47de0bfd027614a9c8674d.tar.lz skribilo-efea4dc93f2565555e47de0bfd027614a9c8674d.zip | |
Lots of changes, again.
Lots of changes, notably the following:
* skr/*.skr: Moved engines to `src/guile/skribilo/engine'.
* src/guile/skribilo/engine.scm (lookup-engine): Rewritten. Don't use
the auto-load alist.
* src/guile/skribilo/evaluator.scm: New name of the `eval' module.
`eval' couldn't be used as the module base-name because of Guile's
recursive module name space.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-2
Diffstat (limited to 'src/guile/skribilo/resolve.scm')
| -rw-r--r-- | src/guile/skribilo/resolve.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 2dc5e98..e59a2f8 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -50,11 +50,13 @@ (define (resolve! ast engine env) (with-debug 3 'resolve (debug-item "ast=" ast) - (fluid-let ((*unresolved* #f)) + (let ((*unresolved* (make-fluid))) + (fluid-set! *unresolved* #f) + (let Loop ((ast ast)) - (set! *unresolved* #f) + (fluid-set! *unresolved* #f) (let ((ast (do-resolve! ast engine env))) - (if *unresolved* + (if (fluid-ref *unresolved*) (Loop ast) ast)))))) |