suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

svn: r15422

Browse Source 
original commit: c038edeadaef31c8da312cc41e99369436241c58
This commit is contained in:
Eli Barzilay 2009-07-09 20:57:00 +00:00
parent e4bf3fb619
commit 9685a9bb56
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/text/output.ss
View File

@ -64,7 +64,7 @@
[else
(let ([col (- col len1)]
[len2 (if (number? pfx2) pfx2 (string-length pfx2))])
(when (< col len2) (write-string (->str pfx2) p col )))])))))
(when (< col len2) (write-string (->str pfx2) p col)))])))))
;; the basic printing unit: strings
(define (output-string x)
(define pfx (mcar pfxs))