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

This way we get rid of the phantom spaces in the fitting case.

Browse Source 
svn: r11767
This commit is contained in:
Stevie Strickland 2008-09-15 22:10:17 +00:00
parent 402deaafe5
commit d424cc4ef2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/private/contract-guts.ss
View File

@ -180,8 +180,7 @@
[formatted-contract-sexp
(let ([one-line
(let ([sp (open-output-string)])
(parameterize ([pretty-print-print-line print-contract-liner]
[pretty-print-columns 'infinity])
(parameterize ([pretty-print-columns 'infinity])
(pretty-print contract-sexp sp)
(get-output-string sp)))])
(if (< (string-length one-line) 30)