summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-10-09 23:56:38 +0200
committerLudovic Courtès2008-10-09 23:56:38 +0200
commitb9a26f964976e27369874688c9fdff80370bf92e (patch)
tree174acb06ea6ac629fd4f951c843ad27f8598623d
parente5d47bade42f49e744c67f3c05b6885abb14df08 (diff)
downloadskribilo-b9a26f964976e27369874688c9fdff80370bf92e.tar.gz
skribilo-b9a26f964976e27369874688c9fdff80370bf92e.tar.lz
skribilo-b9a26f964976e27369874688c9fdff80370bf92e.zip
justify: Rename `string-replace' to `string-replace-char'.
* src/guile/skribilo/utils/justify.scm (string-replace): Rename to... (string-replace-char): ... this, to avoid name collision with core Guile.
-rw-r--r--src/guile/skribilo/utils/justify.scm4
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 ... */