From 98c5c33845534a4935af6d4c81c04e43965609cc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 22 Jun 2006 21:53:22 +0000
Subject: [PATCH] removed earlier module language fix because it wasn't really
 a fix ...

svn: r3441
---
 collects/drscheme/private/module-language.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 674283ebcb..0983af1193 100644
--- 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