racket/rerequire: repair for Racket CS

2019-04-30 17:18:21 -06:00 · 2019-04-30 17:18:21 -06:00 · f5836d7a30
commit f5836d7a30
parent 5f53c91c6e
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/racket/rerequire.rkt
+++ b/racket/collects/racket/rerequire.rkt
@ -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)))