diff options
| -rw-r--r-- | src/guile/skribilo/utils/justify.scm | 12 |
1 files changed, 7 insertions, 5 deletions
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)) |