From 96161f68eb4331596bd6fd0a19bf821503bed25a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Jun 2018 15:48:22 -0600
Subject: [PATCH] fix non-initial call to `scheme_basic_env`

When an embedding application calls `scheme_basic_env` a
second time, it's supposed to reset the main namespace, but
the new expander wasn't reset correctly.
---
 racket/src/racket/src/env.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/racket/src/racket/src/env.c b/racket/src/racket/src/env.c
index 3338cb2ea9..2349e57fce 100644
--- a/racket/src/racket/src/env.c
+++ b/racket/src/racket/src/env.c
@@ -146,6 +146,9 @@ Scheme_Env *scheme_restart_instance()
   scheme_init_logger_config();
   scheme_init_exn_config();
 
+  scheme_startup_instance = scheme_make_instance(scheme_intern_symbol("startup"), scheme_false);
+  scheme_init_startup_instance(scheme_startup_instance);
+
   boot_module_resolver();
 
   scheme_init_resolver_config();