From db2624b9e3a6666098fa7b7b4ab7353f04d4ced2 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sun, 15 Jun 2008 21:45:40 +0000 Subject: [PATCH] create namespace for expansion of require'd modules (to fix multi-file debugging problem) svn: r10277 --- collects/gui-debugger/load-sandbox.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/gui-debugger/load-sandbox.ss b/collects/gui-debugger/load-sandbox.ss index b41c878955..0d18ab360c 100644 --- a/collects/gui-debugger/load-sandbox.ss +++ b/collects/gui-debugger/load-sandbox.ss @@ -2,6 +2,7 @@ (require syntax/moddep mzlib/class + scheme/private/namespace mred) (provide eval/annotations @@ -51,7 +52,8 @@ (unless m (raise 'module-name-not-passed-to-load-module/annotate)) (with-module-reading-parameterization (lambda () - (let* ([first (expand (read-syntax src in-port))] + (let* ([first (parameterize ([current-namespace (make-base-namespace)]) + (expand (read-syntax src in-port)))] [module-ized-exp (annotator (check-module-form first m fn))] [second (read in-port)]) (unless (eof-object? second)