fix syntax-case tests

svn: r10922
This commit is contained in:
Matthew Flatt 2008-07-26 20:29:40 +00:00
parent a3c0e93324
commit c1983f1984

View File

@ -224,8 +224,8 @@
(test (syntax->datum #'(a . b)) '(a . b))
(test (syntax->datum '1) 1)
(test (syntax->datum '(a . b)) '(a . b))
(test (syntax->datum '(a b)) '(a b))
(test (syntax->datum '(1 . 2)) '(1 . 2))
(test (syntax->datum '(1 2)) '(1 2))
(test (syntax->datum (cons #'a #'b)) '(a . b))
(test (syntax->datum (vector #'a #'b)) '#(a b))
(test (syntax->datum '#(a b)) '#(a b))