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

create namespace for expansion of require'd modules (to fix multi-file debugging problem)

Browse Source 
svn: r10277
This commit is contained in:
Greg Cooper 2008-06-15 21:45:40 +00:00
parent 7fbb4dab2a
commit db2624b9e3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/gui-debugger/load-sandbox.ss
View File

@ -2,6 +2,7 @@
(require syntax/moddep (require syntax/moddep
mzlib/class mzlib/class
scheme/private/namespace
mred) mred)
(provide eval/annotations (provide eval/annotations
@ -51,7 +52,8 @@
(unless m (raise 'module-name-not-passed-to-load-module/annotate)) (unless m (raise 'module-name-not-passed-to-load-module/annotate))
(with-module-reading-parameterization (with-module-reading-parameterization
(lambda () (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))] [module-ized-exp (annotator (check-module-form first m fn))]
[second (read in-port)]) [second (read in-port)])
(unless (eof-object? second) (unless (eof-object? second)