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

add (currently failing) test case for changing the current module inside

Browse source 
`begin' form

* test-suite/tests/syncase.scm: ("expander detects changes to current-module"):
  New test case.
This commit is contained in:
Julian Graham 2010-02-27 15:04:56 -05:00
parent adbdfd6d24
commit a2f7536db0
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/syncase.test
View file

@ -106,3 +106,15 @@
(pass-if "compiled macro-generating macro works" (pass-if "compiled macro-generating macro works"
(eq? (eval '(kwote* foo) (current-module)) (eq? (eval '(kwote* foo) (current-module))
'foo))) '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)))))