Import Upstream version 3a4upstream/3a4

1 files changed, 4 insertions, 4 deletions

diff --git a/qp.scm b/qp.scm
index 1dedf66..2feda2f 100644
--- a/qp.scm
+++ b/qp.scm
@@ -53,7 +53,7 @@
 	      (display " . ")
 	      (+ 3 (qp-obj cdrs (l-elt-room (- room 3) cdrs))))
 	     ((< 11 room)
-	      (display #\ )
+	      (display #\space)
 	      ((lambda (used)
 		 (+ (qp-pairs (cdr cdrs) (- room used)) used))
 	       (+ 1 (qp-obj (car cdrs) (l-elt-room (- room 1) cdrs)))))
@@ -69,7 +69,7 @@
 	    (cond
 	     ((= (vector-length vect) i) 0)
 	     ((< 11 room)
-	      (display #\ )
+	      (display #\space)
 	      ((lambda (used)
 		 (+ (qp-vect vect (+ i 1) (- room used)) used))
 	       (+ 1 (qp-obj (vector-ref vect i)
@@ -132,12 +132,12 @@
       (lambda objs
 	(cond
 	 ((not *qp-width*)
-	  (for-each (lambda (x) (write x) (display #\ )) objs)
+	  (for-each (lambda (x) (write x) (display #\space)) objs)
 	  (newline))
 	 ((= 0 *qp-width*)
 	  (for-each (lambda (x)
 		      (if (procedure? x) (display "#[proc]") (write x))
-		      (display #\ )) objs))
+		      (display #\space)) objs))
 	 (else
 	  (qp-pairs (cdr objs)
 		    (- *qp-width*