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 /vet.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 'vet.scm')
-rw-r--r-- | vet.scm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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))) |