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 ;; submodule is not found
(void))]) (void))])
(let* ([code (get-module-code (let* ([code (get-module-code
path "compiled" path (let ([l (use-compiled-file-paths)])
(if (pair? l) (car l) "compiled"))
(lambda (e) (lambda (e)
(parameterize ([compile-enforce-module-constants #f]) (parameterize ([compile-enforce-module-constants #f])
(compile e))) (compile e)))