From 9707770acee16add16fb82a7760c7f4248e6d49c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Jun 2008 18:36:31 +0000 Subject: [PATCH] fix phase problem in 'make-namespace' form 'mzscheme' svn: r10478 --- collects/scheme/private/old-procs.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/scheme/private/old-procs.ss b/collects/scheme/private/old-procs.ss index 325268a17b..e3bbb9f7a8 100644 --- a/collects/scheme/private/old-procs.ss +++ b/collects/scheme/private/old-procs.ss @@ -25,8 +25,9 @@ (raise-syntax-error 'make-namespace "'initial or 'empty" flag)) - (let ([new (make-empty-namespace)] - [old (variable-reference->empty-namespace (#%variable-reference reflect-var))]) + (let* ([old (variable-reference->empty-namespace (#%variable-reference reflect-var))] + [new (parameterize ([current-namespace old]) + (make-empty-namespace))]) (namespace-attach-module old 'mzscheme new) (unless (eq? flag 'empty) (parameterize ([current-namespace new])