From 1ce94aae7b756338bbbec98678d9c98e1d1be9e3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 14 Nov 2007 19:35:42 +0100 Subject: Update the body of commands when resolving. * src/guile/skribilo/resolve.scm (do-resolve!): Update the body of N with the resolved body. --- src/guile/skribilo/resolve.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') 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)) -- cgit v1.2.3