From 5bea21e81ed516440e34e480f2c33ca41aa8c597 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:36 -0800 Subject: Import Upstream version 3a4 --- vet.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'vet.scm') diff --git a/vet.scm b/vet.scm index 31cd032..76e0704 100644 --- a/vet.scm +++ b/vet.scm @@ -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))) -- cgit v1.2.3