more testing

svn: r14655

original commit: b205f65bec553659e19641c61b7b5d94bb8e25dd
This commit is contained in:
Sam Tobin-Hochstadt 2009-04-29 16:58:20 +00:00
commit ac6d723e03
2 changed files with 21 additions and 0 deletions

View File

@ -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))

View File

@ -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)]