From 7d38e209948b65d8d2a2fede6a49d6e5ae50c6ef Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 22 May 2009 20:23:15 +0000
Subject: [PATCH] Avoid spurious quoting. Use display instead of printf.

svn: r14936

original commit: e92a8dd2f546b2e429e6776b064de119c2593852
---
 collects/typed-scheme/typed-scheme.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/typed-scheme/typed-scheme.ss b/collects/typed-scheme/typed-scheme.ss
index 5646b76a..3679a8f4 100644
--- a/collects/typed-scheme/typed-scheme.ss
+++ b/collects/typed-scheme/typed-scheme.ss
@@ -135,11 +135,11 @@
                             [(tc-results: t)
                              (format "- : ~a\n" type)]
                             [x (int-err "bad type result: ~a" x)])])
-              (if #'ty-str                  
+              (if ty-str                  
                   #`(let ([type '#,ty-str])
                       (begin0 
                         #,body2
-                        (printf type)))
+                        (display type)))
                   body2))]))]))