diff options
| author | Ludovic Court`es | 2007-06-25 15:51:28 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-25 15:51:28 +0000 |
| commit | e926e7b014d2586f5d53f75a43df5b150823d574 (patch) | |
| tree | 5fb15bfc7fa0159d70b67a44533d732cbad0b401 | |
| parent | 1abaff8201f2dd38794f1bdc64115bc82ef0a4d0 (diff) | |
| download | skribilo-e926e7b014d2586f5d53f75a43df5b150823d574.tar.gz skribilo-e926e7b014d2586f5d53f75a43df5b150823d574.tar.lz skribilo-e926e7b014d2586f5d53f75a43df5b150823d574.zip | |
`diff' package: Small bug fix.
* src/guile/skribilo/package/diff.scm (make-diff-document): Don't use
`ast-loc' when AST2 is not `ast?'.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-78
| -rw-r--r-- | src/guile/skribilo/package/diff.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm index fe509b7..2d634ec 100644 --- a/src/guile/skribilo/package/diff.scm +++ b/src/guile/skribilo/package/diff.scm @@ -367,7 +367,8 @@ (unchanged :loc (ast-loc ast2) ast1)) (else - (insertion :loc (ast-loc ast2) ast2))))) + (let ((loc (and (ast? ast2) (ast-loc ast2)))) + (insertion :loc loc ast2)))))) |