summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/diff.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm
index ef0032f..7e9dc53 100644
--- a/src/guile/skribilo/package/diff.scm
+++ b/src/guile/skribilo/package/diff.scm
@@ -37,6 +37,7 @@
:autoload (skribilo biblio) (*bib-table* make-bib-table)
:use-module (skribilo package base)
:use-module (skribilo utils syntax)
+ :autoload (skribilo utils keywords) (the-options the-body)
:export (make-diff-document
make-diff-document-from-files))
@@ -84,6 +85,7 @@
(ident (gensym "diff:unchanged"))
(body args)))
+
;;;
;;; Helpers for string diffs.
@@ -207,13 +209,13 @@
(let* ((lead (string-ref str start))
(lead* (if (char-set-contains? char-set:whitespace
lead)
- (~)
+ (breakable-space)
(string lead))))
(if (> len 1)
(let* ((trail (string-ref str (- end 1)))
(trail* (if (char-set-contains? char-set:whitespace
trail)
- (~)
+ (breakable-space)
(string trail))))
(list lead* (substring str (+ start 1) (- end 1))
trail*))