From 61dcc5d43a0068535175f401bffeab607dae52f3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 5 May 2008 01:59:43 +0000 Subject: [PATCH] fix r6rs identifier-syntax bug svn: r9645 --- collects/r6rs/private/identifier-syntax.ss | 2 +- collects/tests/r6rs/base.ss | 5 +++++ collects/tests/r6rs/syntax-case.ss | 5 +---- 3 files changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/r6rs/private/identifier-syntax.ss b/collects/r6rs/private/identifier-syntax.ss index ab199e8449..a84350f18a 100644 --- a/collects/r6rs/private/identifier-syntax.ss +++ b/collects/r6rs/private/identifier-syntax.ss @@ -1,6 +1,6 @@ #lang scheme/base (require (for-syntax scheme/base) - (for-template (only-in scheme/base set!))) + (for-template (only-in scheme/base set! #%app))) (provide identifier-syntax) diff --git a/collects/tests/r6rs/base.ss b/collects/tests/r6rs/base.ss index c07fe9ad40..0db4d8d646 100644 --- a/collects/tests/r6rs/base.ss +++ b/collects/tests/r6rs/base.ss @@ -131,6 +131,9 @@ (define-syntax p.car (identifier-syntax (car p))) + (define-syntax kons + (identifier-syntax cons)) + ;; Not the same as in the report, because we avoid `set-car!': (define-syntax p2.car (identifier-syntax @@ -1480,6 +1483,8 @@ (test/unspec (set! p2.car 15)) (test p2.car 15) (test p '(15 . 5)) + + (test (kons 1 2) '(1 . 2)) ;;; )) diff --git a/collects/tests/r6rs/syntax-case.ss b/collects/tests/r6rs/syntax-case.ss index e1f43e7b0d..7214f0db4b 100644 --- a/collects/tests/r6rs/syntax-case.ss +++ b/collects/tests/r6rs/syntax-case.ss @@ -288,8 +288,5 @@ (test/exn (syntax-violation 'form "bad" 7 8) &syntax) ;; - ) - - (run-syntax-case-tests) - (report-test-results)) + ))