diff --git a/src/racket/src/module.c b/src/racket/src/module.c index 17a3636344..cfbf365c6a 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -33,6 +33,7 @@ /* globals */ SHARED_OK Scheme_Object *(*scheme_module_demand_hook)(int, Scheme_Object **); +THREAD_LOCAL_DECL(Scheme_Bucket_Table *scheme_module_code_cache); SHARED_OK static Scheme_Bucket_Table *modpath_table; #ifdef MZ_USE_PLACES diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h index a069023e72..cd7edaf845 100644 --- a/src/racket/src/schpriv.h +++ b/src/racket/src/schpriv.h @@ -3116,6 +3116,7 @@ int scheme_tl_id_is_sym_used(Scheme_Hash_Table *marked_names, Scheme_Object *sym Scheme_Object *scheme_sys_wraps(Scheme_Comp_Env *env); Scheme_Object *scheme_sys_wraps_phase(Scheme_Object *phase); +THREAD_LOCAL_DECL(extern Scheme_Bucket_Table *scheme_module_code_cache); Scheme_Object *scheme_module_execute(Scheme_Object *data, Scheme_Env *genv); Scheme_Env *scheme_new_module_env(Scheme_Env *env, Scheme_Module *m, int new_exp_module_tree);