aboutsummaryrefslogtreecommitdiffstats
path: root/vet.scm
diff options
context:
space:
mode:
authorThomas Bushnell, BSG <tb@debian.org>2006-10-23 23:55:08 -0700
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:37 -0800
commit97fc07b2d8896b869db55827900f24e6528a9bd6 (patch)
tree262ed5c19ad83dd59aac33d2e04ace4fbd94bd3b /vet.scm
parent810b08c931e958fdaa6971b2ce8c5e578130d652 (diff)
parent5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff)
downloadslib-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.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/vet.scm b/vet.scm
index 31cd032..76e0704 100644
--- a/vet.scm
+++ b/vet.scm
@@ -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)))