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

fix phase problem in 'make-namespace' form 'mzscheme'

Browse Source 
svn: r10478
This commit is contained in:
Matthew Flatt 2008-06-27 18:36:31 +00:00
parent e03b419c10
commit 9707770ace
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/private/old-procs.ss
View File

@ -25,8 +25,9 @@
(raise-syntax-error 'make-namespace (raise-syntax-error 'make-namespace
"'initial or 'empty" "'initial or 'empty"
flag)) flag))
(let ([new (make-empty-namespace)] (let* ([old (variable-reference->empty-namespace (#%variable-reference reflect-var))]
[old (variable-reference->empty-namespace (#%variable-reference reflect-var))]) [new (parameterize ([current-namespace old])
(make-empty-namespace))])
(namespace-attach-module old 'mzscheme new) (namespace-attach-module old 'mzscheme new)
(unless (eq? flag 'empty) (unless (eq? flag 'empty)
(parameterize ([current-namespace new]) (parameterize ([current-namespace new])