diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/ast.scm | 3 | ||||
| -rw-r--r-- | src/guile/skribilo/resolve.scm | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index 86fa781..99ce3cf 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -510,6 +510,9 @@ (document-bind-node! doc node) (loop (markup-body node) doc)) + ((node? node) + (loop (node-body node) doc)) + ((pair? node) (for-each (lambda (n) (loop n doc)) node)) diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 2073f25..d8efe08 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -206,7 +206,7 @@ ;; Bind non-unresolved children of RES now so that unresolved ;; children of RES (if any) can look them up in the next `resolve!' - ;; run. (XXX: This largely duplicated `document-bind-nodes!'.) + ;; run. (XXX: This largely duplicates `document-bind-nodes!'.) (let loop ((node res) (doc (ast-document node))) (if (ast? node) @@ -224,6 +224,9 @@ (document-bind-node! doc node) (loop (markup-body node) doc)) + ((node? node) + (loop (node-body node) doc)) + ((pair? node) (for-each (lambda (n) (loop n doc)) node)) |