return a better type

svn: r15736
2009-08-14 19:44:46 +00:00 · 2009-08-14 19:44:46 +00:00 · 83e0ec2b40
commit 83e0ec2b40
parent 824a461335
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/typecheck/tc-expr-unit.ss
+++ b/collects/typed-scheme/typecheck/tc-expr-unit.ss
@ -206,7 +206,7 @@
    (let ([ty (cond [(type-ascription form) => (lambda (ann)
                                                 (let ([r (tc-expr/check/internal form ann)])
                                                   (check-below r expected)
-                                                   expected))]
+                                                   #;expected))]
                    [else (tc-expr/check/internal form expected)])])
      (match ty
        [(tc-results: ts fs os)