summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-02-03 21:39:05 +0100
committerLudovic Courtès2008-02-03 21:39:05 +0100
commitd13911b6c6bac9fb3ad20d6cb39e2002759f8496 (patch)
tree531e9e8b6fec143d2bdc75b442a7822724a5f379 /src
parent75065b6540212f9989ecc5e535e932938eeb7d68 (diff)
downloadskribilo-d13911b6c6bac9fb3ad20d6cb39e2002759f8496.tar.gz
skribilo-d13911b6c6bac9fb3ad20d6cb39e2002759f8496.tar.lz
skribilo-d13911b6c6bac9fb3ad20d6cb39e2002759f8496.zip
Handle commands in `ast-fold'.
* src/guile/skribilo/ast.scm (ast-fold): Iterate through the body of commands.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/ast.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm
index 8dee4d8..d71ec31 100644
--- a/src/guile/skribilo/ast.scm
+++ b/src/guile/skribilo/ast.scm
@@ -517,6 +517,8 @@
(fold loop result ast))
((node? ast)
(loop (node-body ast) (proc ast result)))
+ ((command? ast)
+ (loop (command-body ast) (proc ast result)))
(else result))))