From 6947c9f728597380990aebc4ae51156f8513339d Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Thu, 9 Oct 2008 23:44:29 +0200
Subject: justify: Fix syntactic errors.

* src/guile/skribilo/utils/justify.scm: Use `#\bs' instead of
  `#\a008'.  Use `display' and `format' instead of `print' and
  `fprint'.
---
 src/guile/skribilo/utils/justify.scm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm
index 3ed38f7..969cd30 100644
--- a/src/guile/skribilo/utils/justify.scm
+++ b/src/guile/skribilo/utils/justify.scm
@@ -56,7 +56,7 @@
 	 (cond
 	    ((= r len)
 	     str)
-	    ((char=? (string-ref str r) #a008)
+	    ((char=? (string-ref str r) #\bs)
 	     (string-set! str r #\Space)
 	     (loop (+ r 1)))
 	    (else
@@ -106,7 +106,7 @@
 ;*    contains #\spaces.                                               */
 ;*---------------------------------------------------------------------*/
 (define (output-token str)
-   ((car *justifiers*) 'output (string-replace str #\space #a008)))
+   ((car *justifiers*) 'output (string-replace str #\space #\bs)))
 
 ;*---------------------------------------------------------------------*/
 ;*    output-newline ...                                               */
@@ -132,8 +132,10 @@
 (define (output-flush margin)
    (for-each (if (> margin 0)
 		 (let ((m (make-string margin #\space)))
-		    (lambda (x) (print m (text-string x))))
-		 (lambda (x) (print (text-string x))))
+		    (lambda (x)
+                      (display m)
+                      (display (text-string x))))
+		 (lambda (x) (display (text-string x))))
 	     ((car *justifiers*) 'flush)))
 
 ;*---------------------------------------------------------------------*/
@@ -426,7 +428,7 @@
 
 (define (my-string-append . s)
    (newline (current-error-port))
-   (fprint (current-error-port) "s: " s)
+   (format (current-error-port) "s: ~a~%" s)
    (apply string-append s))
 
 
-- 
cgit v1.2.3