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

remove unneeded global variable mtrace_cmark_key

Browse Source 
svn: r17490
This commit is contained in:
Kevin Tew 2010-01-06 05:11:15 +00:00
parent f12bda77c9
commit 2d92b5aa91
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/thread.c
View File

@ -378,7 +378,6 @@ static int post_system_idle();
static Scheme_Object *current_stats(int argc, Scheme_Object *args[]); static Scheme_Object *current_stats(int argc, Scheme_Object *args[]);
static Scheme_Object **config_map; static Scheme_Object **config_map;
Scheme_Object *mtrace_cmark_key = NULL;
typedef struct { typedef struct {
MZTAG_IF_REQUIRED MZTAG_IF_REQUIRED
@ -796,9 +795,8 @@ void scheme_init_memtrace(Scheme_Env *env)
v = scheme_intern_symbol("#%memtrace"); v = scheme_intern_symbol("#%memtrace");
newenv = scheme_primitive_module(v, env); newenv = scheme_primitive_module(v, env);
mtrace_cmark_key = scheme_make_symbol("memory-trace-continuation-mark"); v = scheme_make_symbol("memory-trace-continuation-mark");
scheme_add_global("memory-trace-continuation-mark", mtrace_cmark_key, scheme_add_global("memory-trace-continuation-mark", v , newenv);
newenv);
v = scheme_make_prim_w_arity(new_tracking_fun, v = scheme_make_prim_w_arity(new_tracking_fun,
"new-memtrace-tracking-function", 1, 1); "new-memtrace-tracking-function", 1, 1);
scheme_add_global("new-memtrace-tracking-function", v, newenv); scheme_add_global("new-memtrace-tracking-function", v, newenv);