diff options
| -rw-r--r-- | src/guile/skribilo/utils/justify.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm index de9bbda..c0b4eb8 100644 --- a/src/guile/skribilo/utils/justify.scm +++ b/src/guile/skribilo/utils/justify.scm @@ -66,7 +66,7 @@ ;*---------------------------------------------------------------------*/ ;* string-replace ... */ ;*---------------------------------------------------------------------*/ -(define (string-replace str1 c1 c2) +(define (string-replace-char str1 c1 c2) (let* ((len (string-length str1)) (str2 (make-string len))) (let loop ((r 0)) @@ -102,7 +102,7 @@ ;* contains #\spaces. */ ;*---------------------------------------------------------------------*/ (define (output-token str) - ((car *justifiers*) 'output (string-replace str #\space #\bs))) + ((car *justifiers*) 'output (string-replace-char str #\space #\bs))) ;*---------------------------------------------------------------------*/ ;* output-newline ... */ |