adjust arity to the global-port-print-handler so that its name is meaningful

2010-12-26 22:25:59 -06:00 · 2010-12-26 22:25:59 -06:00 · 413c0489f2
commit 413c0489f2
parent 5828906585
1 changed files with 1 additions and 1 deletions
--- a/collects/drracket/private/language.rkt
+++ b/collects/drracket/private/language.rkt
@ -488,7 +488,7 @@
            (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))]))
       
       (global-port-print-handler
-        (λ (value port)
+        (λ (value port [depth 0])
          (let-values ([(converted-value write?)
                        (call-with-values 
                            (lambda () (simple-module-based-language-convert-value value setting))