From b4ab391fb6e52d68b6799536b8617daf52ab4658 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Jun 2010 08:29:21 -0600 Subject: [PATCH] fix htdp/bsl printer --- collects/htdp/bsl/runtime.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/htdp/bsl/runtime.rkt b/collects/htdp/bsl/runtime.rkt index 9b9c7e17df..2cbb663275 100644 --- a/collects/htdp/bsl/runtime.rkt +++ b/collects/htdp/bsl/runtime.rkt @@ -29,15 +29,15 @@ (pretty-print-show-inexactness #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 (lambda (v) (unless (void? v) - (pretty-print (print-convert v))))) + (pretty-write (print-convert v))))) (let ([orig (global-port-print-handler)]) (global-port-print-handler (lambda (val port [depth 0]) (parameterize ([global-port-print-handler orig]) (let ([val (print-convert val)]) (parameterize ([pretty-print-columns 'infinity]) - (pretty-print val port depth)))))))) + (pretty-write val port))))))))