racket/rerequire: repair for Racket CS

This commit is contained in:
Matthew Flatt 2019-04-30 17:18:21 -06:00
parent 5f53c91c6e
commit f5836d7a30

View File

@ -49,7 +49,8 @@
;; submodule is not found
(void))])
(let* ([code (get-module-code
path "compiled"
path (let ([l (use-compiled-file-paths)])
(if (pair? l) (car l) "compiled"))
(lambda (e)
(parameterize ([compile-enforce-module-constants #f])
(compile e)))