suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix uses of namespace context without ensuring prepared

Browse Source 
Closes #1530
This commit is contained in:
Matthew Flatt 2016-12-19 19:14:33 -07:00
parent deaf48ae30
commit 9eb7d6b84e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/env.c
View File

@ -1599,6 +1599,7 @@ void scheme_shadow(Scheme_Env *env, Scheme_Object *n, Scheme_Object *val, int as
if (!id) { if (!id) {
if (env->module) if (env->module)
return; return;
scheme_prepare_env_stx_context(env);
id = scheme_datum_to_syntax(n, scheme_false, scheme_false, 0, 0); id = scheme_datum_to_syntax(n, scheme_false, scheme_false, 0, 0);
id = scheme_stx_add_module_context(id, env->stx_context); 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 = argv[0];
obj = scheme_datum_to_syntax(obj, scheme_false, scheme_false, 1, 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); obj = scheme_stx_add_module_context(obj, genv->stx_context);
return obj; return obj;