mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

another scoping test

Browse source 
* test-suite/tests/syntax.test ("top-level define"): Add another test
  for scoping.
This commit is contained in:
Andy Wingo 2011-11-07 11:44:54 +01:00
parent 47e9919d22
commit ab2d0f8f0c
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test-suite/tests/syntax.test
View file

@ -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"