diff options
| -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)) |