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 --- qp.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'qp.scm') 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* -- cgit v1.2.3