suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a test

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-21 16:54:19 -06:00
parent a5d4186c57
commit 03c7cfdc42
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-pkgs/racket-test/tests/racket/namespac.rktl
View File

@ -100,8 +100,8 @@
(with-handlers ([void (lambda (exn) 'unbound)]) (with-handlers ([void (lambda (exn) 'unbound)])
(eval '#%car))) (eval '#%car)))
(namespace-set-variable-value! 'hello 5) (namespace-set-variable-value! 'hello 5)
(namespace-attach-module orig 'mzscheme) (namespace-attach-module orig 'racket/base)
(namespace-require '(rename mzscheme #%top #%top)) (namespace-require '(rename racket/base #%top #%top))
(test 5 'empty-namespace (eval 'hello)) (test 5 'empty-namespace (eval 'hello))
(test #t 'top+hello (let ([s (namespace-mapped-symbols)]) (test #t 'top+hello (let ([s (namespace-mapped-symbols)])
(or (equal? s '(#%top hello)) (or (equal? s '(#%top hello))