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

fix contract error message to use pretty-write for contract forms

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-24 08:22:57 -06:00
parent 22470e4147
commit 139faf9160
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/contract/private/blame.ss
View File

@ -87,8 +87,13 @@
(pretty-display v port)
(get-output-string port)))
(define (pretty-format/write v [columns (pretty-print-columns)])
(let ([port (open-output-string)])
(pretty-write v port)
(get-output-string port)))
(define show/display (show pretty-format/display))
(define show/write (show pretty-format))
(define show/write (show pretty-format/write))
(define (show-line-break line port len cols)
(newline port)