[Guile-commits] GNU Guile branch, master, updated. release_1-9-8-52-gd524964

[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=d524964774508a2cf3ad6ad1cd7b08bec6c7eeb0

The branch, master has been updated
       via  d524964774508a2cf3ad6ad1cd7b08bec6c7eeb0 (commit)
      from  a2f7536db02edeb7edb66c2deba83bf22eb9e2ca (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 d524964774508a2cf3ad6ad1cd7b08bec6c7eeb0
Author: Julian Graham <address@hidden>
Date:   Mon Mar 1 22:15:45 2010 -0500

    Change failing syncase test case to UNRESOLVED.
    
    * test-suite/tests/syncase.test:
      ("expander detects changes to current-module"): Throw 'unresolved instead 
of
      returning #f.

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

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

diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index 715693d..c12ce99 100644
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -109,12 +109,13 @@
 
 (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)))))
+    (or (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)))
+       (throw 'unresolved))))


hooks/post-receive
-- 
GNU Guile