From fbb0ced20f5a3c44be4ce41fa33af42a3923f43c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 18 Mar 2008 02:26:11 +0000 Subject: [PATCH] expand in a fresh namespace svn: r9013 --- collects/profj/types.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/profj/types.ss b/collects/profj/types.ss index ff97855b06..fe28396f50 100644 --- a/collects/profj/types.ss +++ b/collects/profj/types.ss @@ -795,13 +795,14 @@ (let ((var (string->symbol (java-name->scheme variable)))) (or (memq var (scheme-record-provides mod-ref)) (let ((mod-syntax (datum->syntax-object #f - `(module m mzscheme + `(,#'module m mzscheme (require ,(generate-require-spec (java-name->scheme (scheme-record-name mod-ref)) (scheme-record-path mod-ref))) ,var) #f))) (with-handlers ((exn? (lambda (e) (fail)))) - (expand mod-syntax)) + (parameterize ([current-namespace (make-namespace)]) + (expand mod-syntax))) (set-scheme-record-provides! mod-ref (cons var (scheme-record-provides mod-ref))))))) ;generate-require-spec: string (list string) -> (U string (list symbol string+))