diff options
| -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)))))) |