more testing

svn: r14655

collects/typed-scheme/test.ss

@@ -52,4 +52,24 @@
 (set! zzz 2)
 
 (define-struct: xxx ())
+(define-struct: xxx2 ([y : Number]))
+(define-struct: xxx3 ([y : Number] [z : Number]))
+(define-struct: xxx4 ([y : Number] [z : xxx4]))
+(define-struct: xxx5 ([y : Number] [z : xxx4]))
+(define-struct: (A) xxx6 ([y : A] [z : xxx4]))
+xxx6-y
+(with-continuation-mark 1 1 1)
+'foo
+'(foo foo foo)
+(define-type-alias NNN Number)
+(define-type-alias (NNN2 A) (Listof Number))
+(define-type-alias (NNN3 A) (Listof A))
+(define-syntax-rule (m x) 1)
+(m 2)
+#{1 :: 1}
+(lambda: ([x : String]) (lambda () (set! x "foo")))
+#'(x y z)
+(begin0 1 1 1)
+(begin 1 1 1)
+(#%expression (begin 1 1 1))
 

collects/typed-scheme/typecheck/tc-toplevel.ss

@@ -161,6 +161,7 @@
       [(define-syntaxes . _) (void)]
       [(define-values-for-syntax . _) (void)]
       
+      ;; FIXME - we no longer need these special cases
       ;; these forms are handled in pass1
       [(define-values () (begin (quote-syntax (require/typed-internal . rest)) (#%plain-app values)))
        (void)]