svn: r10295
This commit is contained in:
Eli Barzilay 2008-06-16 17:59:55 +00:00
parent fbb652713b
commit 559517497b

View File

@ -391,8 +391,8 @@
[(module . rest)
(syntax-case stx ()
[(form name . _)
(let ([v-name (syntax name)])
(when filename (check-filename-matches filename #'name stx))
(let ([v-name #'name])
(when filename (check-filename-matches filename v-name stx))
(thread-cell-set! hopeless-repl #f)
(values
v-name