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

Better fix for the previous bug.

Browse Source 
(cherry picked from commit 793d7894f1)
This commit is contained in:
Guillaume Marceau 2011-07-14 00:12:47 -04:00 committed by Eli Barzilay
parent 72a81a7c12
commit fd6d7de506
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribblings/htdp-langs/prim-ops.rkt
View File

@ -5,7 +5,7 @@
scribble/struct scribble/struct
scribble/racket scribble/racket
racket/list racket/list
scheme/pretty racket/pretty
syntax/docprovide syntax/docprovide
(for-syntax racket/base) (for-syntax racket/base)
) )
@ -33,7 +33,7 @@
(define (typeset-type type) (define (typeset-type type)
(let-values ([(in out) (make-pipe)]) (let-values ([(in out) (make-pipe)])
(parameterize ([pretty-print-columns 50]) (parameterize ([pretty-print-columns 50])
(pretty-print type out)) (pretty-write type out))
(port-count-lines! in) (port-count-lines! in)
(read-syntax #f in))) (read-syntax #f in)))