diff options
| author | Ludovic Courtès | 2008-10-09 23:44:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-10-09 23:44:29 +0200 |
| commit | 6947c9f728597380990aebc4ae51156f8513339d (patch) | |
| tree | 744c611abc6b49017b8baefc21537c39b9927e8e /src/guile | |
| parent | 05a3f04471fe1eb913ac76839a8ea6242124c039 (diff) | |
| download | skribilo-6947c9f728597380990aebc4ae51156f8513339d.tar.gz skribilo-6947c9f728597380990aebc4ae51156f8513339d.tar.lz skribilo-6947c9f728597380990aebc4ae51156f8513339d.zip | |
justify: Fix syntactic errors.
* src/guile/skribilo/utils/justify.scm: Use `#\bs' instead of
`#\a008'. Use `display' and `format' instead of `print' and
`fprint'.
Diffstat (limited to 'src/guile')
| -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)) |