summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-03-28 09:22:14 +0000
committerLudovic Court`es2007-03-28 09:22:14 +0000
commit67431ba389db6543d0df68f46718e81c47e1f460 (patch)
treeb2e9b690921f9e05d82b8d0c911881c2c25b5413 /src
parent8142294b8c0874515385eff2102a4f3c83c1417a (diff)
parent6e123c4365429b3c80aa540ff7bc6b230a011bf0 (diff)
downloadskribilo-67431ba389db6543d0df68f46718e81c47e1f460.tar.gz
skribilo-67431ba389db6543d0df68f46718e81c47e1f460.tar.lz
skribilo-67431ba389db6543d0df68f46718e81c47e1f460.zip
`diff' package: Handle commands appropriately.
* src/guile/skribilo/package/diff.scm (make-diff-document): Don't touch commands. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-72
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/package/diff.scm6
1 files changed, 6 insertions, 0 deletions
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)