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

remove 'expand' in module language implementation

Browse Source 
svn: r4141
This commit is contained in:
Robby Findler 2006-08-25 18:04:09 +00:00
parent c54ecf1f36
commit 43ecc114d1
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/drscheme/private/module-language.ss
View File

@ -3,8 +3,6 @@
(provide module-language@) (provide module-language@)
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
(lib "class.ss") (lib "class.ss")
(lib "list.ss")
(lib "file.ss")
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "embed.ss" "compiler") (lib "embed.ss" "compiler")
(lib "launcher.ss" "launcher") (lib "launcher.ss" "launcher")
@ -144,10 +142,7 @@
'module-language 'module-language
"the definitions window must contain a module") "the definitions window must contain a module")
(let-values ([(name new-module) (let-values ([(name new-module)
(transform-module (transform-module filename super-result super-result)])
filename
(expand super-result)
super-result)])
(set! module-name name) (set! module-name name)
new-module)))] new-module)))]
[(= 3 iteration-number) [(= 3 iteration-number)
@ -397,11 +392,11 @@
;; transform-module : (union #f string) syntax syntax -> (values symbol[name-of-module] syntax[module]) ;; transform-module : (union #f string) syntax syntax -> (values symbol[name-of-module] syntax[module])
;; in addition to exporting everything, the result module's name ;; in addition to exporting everything, the result module's name
;; is the fully expanded name, with a directory prefix, ;; is the fully path-expanded name with a directory prefix,
;; if the file has been saved ;; if the file has been saved
(define (transform-module filename stx unexpanded-stx) (define (transform-module filename stx unexpanded-stx)
(syntax-case stx (module #%plain-module-begin) (syntax-case stx (module)
[(module name lang (#%plain-module-begin bodies ...)) [(module name lang bodies ...)
(let ([v-name (syntax name)]) (let ([v-name (syntax name)])
(when filename (when filename
(check-filename-matches filename (check-filename-matches filename