From 6e123c4365429b3c80aa540ff7bc6b230a011bf0 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Tue, 27 Mar 2007 16:49:48 +0000 Subject: `diff' package: Handle commands appropriately. * src/guile/skribilo/package/diff.scm (make-diff-document): Don't touch commands. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-31 --- src/guile/skribilo/package/diff.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/guile') diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm index 12eedb3..ef0032f 100644 --- a/src/guile/skribilo/package/diff.scm +++ b/src/guile/skribilo/package/diff.scm @@ -333,6 +333,12 @@ ast1) body)))))) + ((command? ast2) + ;; Leave it untouched. + (new command + (fmt (command-fmt ast2)) + (body (command-body ast2)))) + ((list? ast2) (if (list? ast1) (let liip ((ast1 ast1) -- cgit v1.2.3