summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-07 11:44:54 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-07 11:45:15 +0100
commitab2d0f8f0c3a5b6ca1648ccb36b7309eb3bd65d3 (patch)
treeade5dfb68423a9045299f0098995a411f4ef4d4f
parent47e9919d22ef0d942a9deb8a2e9a6928bd057c6b (diff)
downloadguile-ab2d0f8f0c3a5b6ca1648ccb36b7309eb3bd65d3.tar.gz
another scoping test
* test-suite/tests/syntax.test ("top-level define"): Add another test for scoping.
-rw-r--r--test-suite/tests/syntax.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 31d992120..e99bdfb27 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -812,6 +812,19 @@
(define-10 foo)
(foo))
(current-module))
+ 10))
+
+ (pass-if "module scoping, same symbolic name"
+ (equal?
+ (eval
+ '(begin
+ (define-module (top-level-define/module-scoping-3))
+ (define a 10)
+ (define-module (top-level-define/module-scoping-4)
+ #:use-module (top-level-define/module-scoping-3))
+ (define a (@@ (top-level-define/module-scoping-3) a))
+ a)
+ (current-module))
10)))
(with-test-prefix "internal define"