From e926e7b014d2586f5d53f75a43df5b150823d574 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 25 Jun 2007 15:51:28 +0000
Subject: `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
---
 src/guile/skribilo/package/diff.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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))))))
 
 
 
-- 
cgit v1.2.3