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

expand in a fresh namespace

Browse Source 
svn: r9013
This commit is contained in:
Matthew Flatt 2008-03-18 02:26:11 +00:00
parent 2834b00b7e
commit fbb0ced20f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/profj/types.ss
View File

@ -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+))