diff options
| author | Ludovic Courtès | 2007-11-14 19:35:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-11-14 19:35:42 +0100 |
| commit | 1ce94aae7b756338bbbec98678d9c98e1d1be9e3 (patch) | |
| tree | 495b8b9aa7db999d37c97fc1561caf440b764698 | |
| parent | e5b690a89d21b103e0de164be5f4cbe761e6f2e8 (diff) | |
| download | skribilo-1ce94aae7b756338bbbec98678d9c98e1d1be9e3.tar.gz skribilo-1ce94aae7b756338bbbec98678d9c98e1d1be9e3.tar.lz skribilo-1ce94aae7b756338bbbec98678d9c98e1d1be9e3.zip | |
Update the body of commands when resolving.
* src/guile/skribilo/resolve.scm (do-resolve!<command>): Update the body
of N with the resolved body.
| -rw-r--r-- | src/guile/skribilo/resolve.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 4a83703..efecd8d 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -201,9 +201,8 @@ (debug-item "node=" node) (let ((p (assq 'parent env))) (slot-set! node 'parent (and (pair? p) (pair? (cdr p)) (cadr p)))) - (for-each (lambda (n) - (do-resolve! n engine env)) - (command-body node)) + (slot-set! node 'body + (do-resolve! (command-body node) engine env)) node)) |