diff options
Diffstat (limited to 'vet.scm')
| -rw-r--r-- | vet.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -104,13 +104,13 @@ (else (output-port-width)))) (define spacer (case (length margins) ((3) (caddr margins)) - (else #\ ))) + (else #\space))) (cond ((>= left-margin right-margin) (slib:error 'code-walk-justify " left margin must be smaller than right: " margins))) (let ((cur left-margin) - (lms (make-string left-margin #\ ))) + (lms (make-string left-margin #\space))) (display lms) (for-each (lambda (obj) @@ -124,7 +124,7 @@ (set! cur (+ objl left-margin)) (display lms) (display obj)) (else - (display #\ ) + (display #\space) (display obj) (set! cur (+ 1 objl cur)))))) lst))) |