From d2ad6d985cffc30a73e785e615ec63db6f3e6acd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 25 Dec 2006 11:16:42 +0000 Subject: [PATCH] fixed a bug: top-interaction was put around modules in the module language ... dug svn: r5182 --- collects/drscheme/private/module-language.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index ff58c364f1..458c9c7f03 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -115,8 +115,9 @@ (define/override (get-style-delta) module-language-style-delta) + (inherit get-reader) (define/override (front-end/complete-program port settings teachpack-cache) - (let* ([super-thunk (super front-end/complete-program port settings teachpack-cache)] + (let* ([super-thunk (λ () ((get-reader) (object-name port) port))] [filename (get-filename port)] [module-name #f] [module-name-prefix (get-module-name-prefix filename)]