diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-07 11:44:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-07 11:45:15 +0100 |
commit | ab2d0f8f0c3a5b6ca1648ccb36b7309eb3bd65d3 (patch) | |
tree | ade5dfb68423a9045299f0098995a411f4ef4d4f | |
parent | 47e9919d22ef0d942a9deb8a2e9a6928bd057c6b (diff) | |
download | guile-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.test | 13 |
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" |