[Guile-commits] GNU Guile branch, master, updated. release_1-9-8-51-ga2f7536

[Julian Graham]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=a2f7536db02edeb7edb66c2deba83bf22eb9e2ca

The branch, master has been updated
       via  a2f7536db02edeb7edb66c2deba83bf22eb9e2ca (commit)
      from  adbdfd6d2418b1404af48d480c2273f501517d6e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a2f7536db02edeb7edb66c2deba83bf22eb9e2ca
Author: Julian Graham <address@hidden>
Date:   Sat Feb 27 15:04:56 2010 -0500

    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.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/syncase.test |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index a7a79c4..715693d 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)))))


hooks/post-receive
-- 
GNU Guile