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

Don't use the contract pretty printer when we try to see if we can single

Browse Source 
line the contract error.

svn: r12766
This commit is contained in:
Stevie Strickland 2008-12-10 18:56:13 +00:00
parent 8bc883d1cb
commit 138a3554e2
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)