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')

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