From f5836d7a30d7f12764316b55df58ee095201c117 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 30 Apr 2019 17:18:21 -0600
Subject: [PATCH] racket/rerequire: repair for Racket CS

---
 racket/collects/racket/rerequire.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/collects/racket/rerequire.rkt b/racket/collects/racket/rerequire.rkt
index edec108af5..01332cbf50 100644
--- 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)))