fix `codeblock' linking

Closes PR 11624
This commit is contained in:
Matthew Flatt 2011-01-16 13:36:45 -07:00
parent 1b97013496
commit b1e13e7f3f

View File

@ -92,7 +92,7 @@
;; This makes sense when `expand' actually expands, and
;; probably not otherwise:
[mods (let loop ([e e])
(syntax-case e (module require begin)
(syntax-case e (module #%require begin)
[(module name lang (mod-beg form ...))
(apply append
(link-mod #'lang 2)