From b9a26f964976e27369874688c9fdff80370bf92e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Thu, 9 Oct 2008 23:56:38 +0200
Subject: 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.
---
 src/guile/skribilo/utils/justify.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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 ...                                               */
-- 
cgit v1.2.3