From 8b15ad971c32dcc57126c0a246577889a18161b9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 Nov 2018 15:17:58 -0700
Subject: [PATCH] cs: fix embedded modules in places

---
 racket/src/cs/main.sps | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/racket/src/cs/main.sps b/racket/src/cs/main.sps
index 77798b28c9..52121e5bf5 100644
--- a/racket/src/cs/main.sps
+++ b/racket/src/cs/main.sps
@@ -110,6 +110,7 @@
    (define user-specific-search-paths? #t)
    (define load-on-demand? #t)
    (define compile-machine-independent? (getenv "PLT_COMPILE_ANY"))
+   (define embedded-load-in-places #f)
 
    (define (see saw . args)
      (let loop ([saw saw] [args args])
@@ -345,7 +346,7 @@
                   (set! loads
                         (cons
                          (lambda ()
-                           ;; (register-embedded-load n m)
+                           (set! embedded-load-in-places (list n m))
                            (embedded-load n m #f #t)
                            (embedded-load m p #f #f))
                          loads)))
@@ -610,6 +611,9 @@
       (regexp-place-init!)
       (expander-place-init!)
       (initialize-place!)
+      (when embedded-load-in-places
+        (let-values ([(n m) (apply values embedded-load-in-places)])
+          (embedded-load n m #f #t)))
       (lambda ()
         (let ([f (dynamic-require mod sym)])
           (f pch)))))