psyntax no longer attempts to track (current-module)

[bpt/guile.git] / test-suite / tests / syncase.test

diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index f3bb73b..b0e4cbe 100644 (file)
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -108,12 +108,14 @@
          'foo)))
 
 (with-test-prefix "changes to expansion environment"
-  (pass-if "expander detects changes to current-module"
+  (pass-if "expander detects changes to current-module with @@"
     (compile '(begin
                 (define-module (new-module))
-                (define-syntax new-module-macro
-                  (lambda (stx)
-                    (syntax-case stx () 
-                      ((_ arg) (syntax arg)))))
-                (new-module-macro #t))
+                (@@ (new-module)
+                    (define-syntax new-module-macro
+                      (lambda (stx)
+                        (syntax-case stx () 
+                          ((_ arg) (syntax arg))))))
+                (@@ (new-module)
+                    (new-module-macro #t)))
              #:env (current-module))))