From 932fe179f896831f73fe4c62b7f5a370fc1a4cf3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 21 Apr 2009 16:44:41 +0000 Subject: [PATCH] drop a bad R6RS test (PR 10210) svn: r14577 --- collects/tests/r6rs/syntax-case.sls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/r6rs/syntax-case.sls b/collects/tests/r6rs/syntax-case.sls index 696a2e98f3..a06279347d 100644 --- a/collects/tests/r6rs/syntax-case.sls +++ b/collects/tests/r6rs/syntax-case.sls @@ -216,7 +216,7 @@ (test (bound-identifier=? #'cons #'kons) #f) (test (free-identifier=? #'x #'x) #t) (test (free-identifier=? #'x #'y) #f) - (test (free-identifier=? #'cons #'kons) #t) + ;; (test (free-identifier=? #'cons #'kons) #t) ;; see PLT bug report #10210 (test (syntax->datum #'1) 1) (test (syntax->datum #'a) 'a)