diff options
| author | Ludovic Court`es | 2007-03-28 09:22:14 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-03-28 09:22:14 +0000 |
| commit | 67431ba389db6543d0df68f46718e81c47e1f460 (patch) | |
| tree | b2e9b690921f9e05d82b8d0c911881c2c25b5413 /src/guile | |
| parent | 8142294b8c0874515385eff2102a4f3c83c1417a (diff) | |
| parent | 6e123c4365429b3c80aa540ff7bc6b230a011bf0 (diff) | |
| download | skribilo-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/guile')
| -rw-r--r-- | src/guile/skribilo/package/diff.scm | 6 |
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) |