From 03c5513665c881eb9fa89845648dda01abea455a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 May 2008 23:27:23 +0000 Subject: [PATCH] drs bug and test-suite fixes svn: r9709 original commit: 860c41d7492a33880f9c18839c21a601d675e5b8 --- 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 94aa5d1..325268a 100644 --- a/collects/scheme/private/old-procs.ss +++ b/collects/scheme/private/old-procs.ss @@ -28,8 +28,9 @@ (let ([new (make-empty-namespace)] [old (variable-reference->empty-namespace (#%variable-reference reflect-var))]) (namespace-attach-module old 'mzscheme new) - (parameterize ([current-namespace new]) - (namespace-require/copy 'mzscheme)) + (unless (eq? flag 'empty) + (parameterize ([current-namespace new]) + (namespace-require/copy 'mzscheme))) new)])) (define (free-identifier=?* a b)