diff options
| author | Ludovic Courtès | 2008-02-03 21:39:05 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-02-03 21:39:05 +0100 |
| commit | d13911b6c6bac9fb3ad20d6cb39e2002759f8496 (patch) | |
| tree | 531e9e8b6fec143d2bdc75b442a7822724a5f379 | |
| parent | 75065b6540212f9989ecc5e535e932938eeb7d68 (diff) | |
| download | skribilo-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.
| -rw-r--r-- | src/guile/skribilo/ast.scm | 2 |
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)))) |