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

Fixed regex THREAD_LOCAL REGISTER_SO

Browse Source 
svn: r15050
This commit is contained in:
Kevin Tew 2009-06-02 16:24:26 +00:00
parent 27215bcbca
commit 6aca811cd0
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/env.c
View File

@ -391,6 +391,7 @@ static Scheme_Env *place_instance_init_post_kernel() {
scheme_init_error_escape_proc(NULL);
scheme_init_print_buffers_places();
scheme_init_eval_places();
scheme_init_regexp_places();
env = scheme_make_empty_env();
scheme_set_param(scheme_current_config(), MZCONFIG_ENV, (Scheme_Object *)env);

13
src/mzscheme/src/regexp.c
View File

@ -5545,11 +5545,6 @@ void scheme_regexp_initialize(Scheme_Env *env)
GC_REG_TRAV(scheme_rt_regwork, mark_regwork);
#endif
REGISTER_SO(regparsestr);
REGISTER_SO(regstr);
REGISTER_SO(regbackknown);
REGISTER_SO(regbackdepends);
GLOBAL_PRIM_W_ARITY("byte-regexp", make_regexp, 1, 1, env);
GLOBAL_PRIM_W_ARITY("regexp", make_utf8_regexp, 1, 1, env);
GLOBAL_PRIM_W_ARITY("byte-pregexp", make_pregexp, 1, 1, env);
@ -5569,3 +5564,11 @@ void scheme_regexp_initialize(Scheme_Env *env)
GLOBAL_FOLDING_PRIM("pregexp?", pregexp_p, 1, 1, 1, env);
GLOBAL_FOLDING_PRIM("byte-pregexp?", byte_pregexp_p, 1, 1, 1, env);
}
void scheme_init_regexp_places()
{
REGISTER_SO(regparsestr);
REGISTER_SO(regstr);
REGISTER_SO(regbackknown);
REGISTER_SO(regbackdepends);
}

2
src/mzscheme/src/schpriv.h
View File

@ -222,6 +222,8 @@ void scheme_init_place(Scheme_Env *env);
void scheme_init_print_buffers_places(void);
void scheme_init_eval_places(void);
void scheme_init_port_places(void);
void scheme_init_regexp_places(void);
void scheme_free_dynamic_extensions(void);