Import Upstream version 3a4upstream/3a4

1 files changed, 3 insertions, 3 deletions

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)))