diff options
| -rw-r--r-- | src/guile/skribilo/resolve.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 6405ebd..f902f69 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -202,9 +202,15 @@ (let* ((proc (slot-ref node 'proc)) (res (proc node engine env)) - (loc (ast-loc node))) - (when (ast? res) - (ast-loc-set! res loc)) + (loc (ast-loc node)) + (doc (ast-document node))) + (ast-fold (lambda (node result) + (if (markup? node) + (document-bind-node! doc node)) + (if (ast? node) + (ast-loc-set! node loc))) + #t ;; unused + res) (debug-item "res=" res) (*unresolved* #t) res)))) |