From 538b1f2a101ae7bb7b6bf13c7957de065e552a0f Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 22 May 2007 13:51:33 +0000
Subject: Resolve <command>s too.

* src/guile/skribilo/resolve.scm (do-resolve!<command>): New method.
  Allows arguments of a command (the command body) to be properly
  resolved.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-53
---
 src/guile/skribilo/resolve.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm
index ba5af6a..94ab360 100644
--- a/src/guile/skribilo/resolve.scm
+++ b/src/guile/skribilo/resolve.scm
@@ -196,6 +196,18 @@
   node)
 
 
+(define-method (do-resolve! (node <command>) engine env)
+  (with-debug 5 'do-resolve<command>
+     (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))
+     node))
+
+
+
 ;;;; ======================================================================
 ;;;;
 ;;;; RESOLVE-PARENT
-- 
cgit v1.2.3