summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-10-09 23:44:29 +0200
committerLudovic Courtès2008-10-09 23:44:29 +0200
commit6947c9f728597380990aebc4ae51156f8513339d (patch)
tree744c611abc6b49017b8baefc21537c39b9927e8e /src
parent05a3f04471fe1eb913ac76839a8ea6242124c039 (diff)
downloadskribilo-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')
-rw-r--r--src/guile/skribilo/utils/justify.scm12
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))