diff options
Diffstat (limited to 'qp.scm')
| -rw-r--r-- | qp.scm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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* |