summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Court`es2007-03-27 16:49:48 +0000
committerLudovic Court`es2007-03-27 16:49:48 +0000
commit6e123c4365429b3c80aa540ff7bc6b230a011bf0 (patch)
tree85962deb406f2761eb6c59882f892b203d590ec8
parentdf6fd7f4a9d047224887258b6d9d3c57e272410b (diff)
downloadskribilo-6e123c4365429b3c80aa540ff7bc6b230a011bf0.tar.gz
skribilo-6e123c4365429b3c80aa540ff7bc6b230a011bf0.tar.lz
skribilo-6e123c4365429b3c80aa540ff7bc6b230a011bf0.zip
`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
-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)