diff options
| author | Ludovic Courtès | 2008-10-09 23:56:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-10-09 23:56:38 +0200 |
| commit | b9a26f964976e27369874688c9fdff80370bf92e (patch) | |
| tree | 174acb06ea6ac629fd4f951c843ad27f8598623d | |
| parent | e5d47bade42f49e744c67f3c05b6885abb14df08 (diff) | |
| download | skribilo-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.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 ... */ |