From 43e4dc5e5be565c75386309d94e783e16ff0ed6c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 6 Sep 2007 02:03:14 +0000 Subject: [PATCH] cleanup as suggested by John svn: r7282 --- collects/drscheme/private/module-language.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 6b89e5af0f..25345362ad 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -143,7 +143,7 @@ 'module-language "the definitions window must contain a module") (let-values ([(name new-module) - (transform-module filename super-result super-result)]) + (transform-module filename super-result)]) (set! module-name name) new-module)))] [(= 3 iteration-number) @@ -400,19 +400,19 @@ ;; in addition to exporting everything, the result module's name ;; is the fully path-expanded name with a directory prefix, ;; if the file has been saved - (define (transform-module filename stx unexpanded-stx) + (define (transform-module filename stx) (syntax-case stx (module) [(module name lang bodies ...) (let ([v-name (syntax name)]) (when filename (check-filename-matches filename (syntax-object->datum (syntax name)) - unexpanded-stx)) + stx)) (values v-name stx))] [else (raise-syntax-error 'module-language "only module expressions are allowed" - unexpanded-stx)])) + stx)])) ;; get-module-name-prefix : path -> string ;; returns the symbol that gets passed the current-module-name-prefix