From d13911b6c6bac9fb3ad20d6cb39e2002759f8496 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 3 Feb 2008 21:39:05 +0100
Subject: Handle commands in `ast-fold'.

* src/guile/skribilo/ast.scm (ast-fold): Iterate through the body of
  commands.
---
 src/guile/skribilo/ast.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

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))))
 
 
-- 
cgit v1.2.3