suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix syntax-case tests

Browse Source 
svn: r10922
This commit is contained in:
Matthew Flatt 2008-07-26 20:29:40 +00:00
parent a3c0e93324
commit c1983f1984
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/r6rs/syntax-case.sls
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))