diff options
| author | Thomas Bushnell, BSG <tb@debian.org> | 2006-10-23 23:55:08 -0700 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
| commit | 97fc07b2d8896b869db55827900f24e6528a9bd6 (patch) | |
| tree | 262ed5c19ad83dd59aac33d2e04ace4fbd94bd3b /qp.scm | |
| parent | 810b08c931e958fdaa6971b2ce8c5e578130d652 (diff) | |
| parent | 5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff) | |
| download | slib-97fc07b2d8896b869db55827900f24e6528a9bd6.tar.gz slib-97fc07b2d8896b869db55827900f24e6528a9bd6.zip | |
Import Debian changes 3a4-1debian/3a4-1
slib (3a4-1) unstable; urgency=low
* New upstream release.
* slib.texi (Library Catalogs): Repeat change from 3a3-3.
* Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1.
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* |