removed earlier module language fix because it wasn't really a fix ...

svn: r3441
2006-06-22 21:53:22 +00:00 · 2006-06-22 21:53:22 +00:00 · 98c5c33845
commit 98c5c33845
parent c345c8eef2
1 changed files with 10 additions and 1 deletions
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@ -404,7 +404,16 @@
               (check-filename-matches filename
                                       (syntax-object->datum (syntax name)) 
                                       unexpanded-stx))
-             (let ([new-name (build-name filename)])
+             
+             
+             (values v-name
+                     stx)
+             
+             ;; this isn't working ...
+             #;
+             (let ([new-name (if filename 
+                                 (build-name filename)
+                                 v-name)])
               (values new-name
                       #`(module #,new-name lang (#%plain-module-begin bodies ...)))))]
          [else