From 9eb7d6b84e742ac2fb60ecc00b3124ec8138bf0d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Dec 2016 19:14:33 -0700 Subject: [PATCH] fix uses of namespace context without ensuring prepared Closes #1530 --- racket/src/racket/src/env.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/racket/src/racket/src/env.c b/racket/src/racket/src/env.c index 78df15e9a7..a4542e9a55 100644 --- a/racket/src/racket/src/env.c +++ b/racket/src/racket/src/env.c @@ -1599,6 +1599,7 @@ void scheme_shadow(Scheme_Env *env, Scheme_Object *n, Scheme_Object *val, int as if (!id) { if (env->module) return; + scheme_prepare_env_stx_context(env); id = scheme_datum_to_syntax(n, scheme_false, scheme_false, 0, 0); id = scheme_stx_add_module_context(id, env->stx_context); } @@ -1866,6 +1867,7 @@ namespace_identifier(int argc, Scheme_Object *argv[]) obj = argv[0]; obj = scheme_datum_to_syntax(obj, scheme_false, scheme_false, 1, 0); + scheme_prepare_env_stx_context(genv); obj = scheme_stx_add_module_context(obj, genv->stx_context); return obj;