From c1983f198427a5a2471a126aa50b5706e6aad370 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 Jul 2008 20:29:40 +0000 Subject: [PATCH] fix syntax-case tests svn: r10922 --- collects/tests/r6rs/syntax-case.sls | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/r6rs/syntax-case.sls b/collects/tests/r6rs/syntax-case.sls index d828916f26..e2498a0ad6 100644 --- a/collects/tests/r6rs/syntax-case.sls +++ b/collects/tests/r6rs/syntax-case.sls @@ -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))