Add new test for better error reporting.

svn: r12082
This commit is contained in:
Sam Tobin-Hochstadt 2008-10-21 17:58:57 +00:00
parent 428d407045
commit c6c4a049ee

View File

@ -0,0 +1,9 @@
#;
(exn-pred 1)
#lang typed-scheme
(: f (Foo -> String))
(define (f x) (string-append x))
(f 1)