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

fix htdp/bsl printer

Browse Source
This commit is contained in:
Matthew Flatt 2010-06-27 08:29:21 -06:00
parent dc99e1992c
commit b4ab391fb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/htdp/bsl/runtime.rkt
View File

@ -29,15 +29,15 @@
(pretty-print-show-inexactness #t) (pretty-print-show-inexactness #t)
(pretty-print-exact-as-decimal #t) (pretty-print-exact-as-decimal #t)
;; Set print handlers to use print-convert and pretty-print: ;; Set print handlers to use print-convert and pretty-write:
(current-print (current-print
(lambda (v) (lambda (v)
(unless (void? v) (unless (void? v)
(pretty-print (print-convert v))))) (pretty-write (print-convert v)))))
(let ([orig (global-port-print-handler)]) (let ([orig (global-port-print-handler)])
(global-port-print-handler (global-port-print-handler
(lambda (val port [depth 0]) (lambda (val port [depth 0])
(parameterize ([global-port-print-handler orig]) (parameterize ([global-port-print-handler orig])
(let ([val (print-convert val)]) (let ([val (print-convert val)])
(parameterize ([pretty-print-columns 'infinity]) (parameterize ([pretty-print-columns 'infinity])
(pretty-print val port depth)))))))) (pretty-write val port))))))))