fixed a bug: top-interaction was put around modules in the module language ... dug

svn: r5182
2006-12-25 11:16:42 +00:00 · 2006-12-25 11:16:42 +00:00 · d2ad6d985c
commit d2ad6d985c
parent 0c36bc39f7
1 changed files with 2 additions and 1 deletions
--- 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)]