From a2f7536db02edeb7edb66c2deba83bf22eb9e2ca Mon Sep 17 00:00:00 2001 From: Julian Graham Date: Sat, 27 Feb 2010 15:04:56 -0500 Subject: [PATCH] add (currently failing) test case for changing the current module inside `begin' form * test-suite/tests/syncase.scm: ("expander detects changes to current-module"): New test case. --- test-suite/tests/syncase.test | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test index a7a79c491..715693d64 100644 --- a/test-suite/tests/syncase.test +++ b/test-suite/tests/syncase.test @@ -106,3 +106,15 @@ (pass-if "compiled macro-generating macro works" (eq? (eval '(kwote* foo) (current-module)) 'foo))) + +(with-test-prefix "changes to expansion environment" + (pass-if "expander detects changes to current-module" + (false-if-exception + (compile '(begin + (define-module (new-module)) + (define-syntax new-module-macro + (lambda (stx) + (syntax-case stx () + ((_ arg) (syntax arg))))) + (new-module-macro #t)) + #:env (current-module)))))