fix syntax-case tests
svn: r10922
This commit is contained in:
parent
a3c0e93324
commit
c1983f1984
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user