aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2007-11-14 19:35:42 +0100
committerLudovic Courtès2007-11-14 19:35:42 +0100
commit1ce94aae7b756338bbbec98678d9c98e1d1be9e3 (patch)
tree495b8b9aa7db999d37c97fc1561caf440b764698
parente5b690a89d21b103e0de164be5f4cbe761e6f2e8 (diff)
downloadskribilo-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.scm5
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))