From 43ecc114d1754bfa630dc79aed2a0c99033402bb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 25 Aug 2006 18:04:09 +0000 Subject: [PATCH] remove 'expand' in module language implementation svn: r4141 --- collects/drscheme/private/module-language.ss | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 911ee91015..d70083b6bd 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -3,8 +3,6 @@ (provide module-language@) (require (lib "unitsig.ss") (lib "class.ss") - (lib "list.ss") - (lib "file.ss") (lib "mred.ss" "mred") (lib "embed.ss" "compiler") (lib "launcher.ss" "launcher") @@ -144,10 +142,7 @@ 'module-language "the definitions window must contain a module") (let-values ([(name new-module) - (transform-module - filename - (expand super-result) - super-result)]) + (transform-module filename super-result super-result)]) (set! module-name name) new-module)))] [(= 3 iteration-number) @@ -397,11 +392,11 @@ ;; transform-module : (union #f string) syntax syntax -> (values symbol[name-of-module] syntax[module]) ;; 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 (define (transform-module filename stx unexpanded-stx) - (syntax-case stx (module #%plain-module-begin) - [(module name lang (#%plain-module-begin bodies ...)) + (syntax-case stx (module) + [(module name lang bodies ...) (let ([v-name (syntax name)]) (when filename (check-filename-matches filename