minor

svn: r10295
2008-06-16 17:59:55 +00:00 · 2008-06-16 17:59:55 +00:00 · 559517497b
commit 559517497b
parent fbb652713b
1 changed files with 2 additions and 2 deletions
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@ -391,8 +391,8 @@
    [(module . rest)
     (syntax-case stx ()
       [(form name . _)
-        (let ([v-name (syntax name)])
+        (let ([v-name #'name])
-          (when filename (check-filename-matches filename #'name stx))
+          (when filename (check-filename-matches filename v-name stx))
          (thread-cell-set! hopeless-repl #f)
          (values
           v-name