From 3355f0d73162cfb98bd301a8ad416b0389ab1248 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 25 May 2010 07:57:34 -0700
Subject: [PATCH] Fix Typed Scheme printing of types.

 Merge to 5.0.

original commit: 85b59a2f4c99e19948865cabbcfcc0d9b7cca6c0
---
 collects/typed-scheme/typed-scheme.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/typed-scheme/typed-scheme.rkt b/collects/typed-scheme/typed-scheme.rkt
index f22a7f50..1ffb4a19 100644
--- a/collects/typed-scheme/typed-scheme.rkt
+++ b/collects/typed-scheme/typed-scheme.rkt
@@ -43,7 +43,7 @@
                ([(lambda (e) (and catch-errors? (exn:fail? e) (not (exn:fail:syntax? e))))
                  (lambda (e) (tc-error "Internal error: ~a" e))])]
            [parameterize (;; enable fancy printing?
-                          [custom-printer #f]
+                          [custom-printer #t]
                           ;; a cheat to avoid units
                           [infer-param infer]
                           ;; do we report multiple errors