From 2d92b5aa91ef3e792eee2d4536bd03c1f98dd8a2 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Wed, 6 Jan 2010 05:11:15 +0000 Subject: [PATCH] remove unneeded global variable mtrace_cmark_key svn: r17490 --- src/mzscheme/src/thread.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c index acbdc0cab3..bc369ad34c 100644 --- a/src/mzscheme/src/thread.c +++ b/src/mzscheme/src/thread.c @@ -378,7 +378,6 @@ static int post_system_idle(); static Scheme_Object *current_stats(int argc, Scheme_Object *args[]); static Scheme_Object **config_map; -Scheme_Object *mtrace_cmark_key = NULL; typedef struct { MZTAG_IF_REQUIRED @@ -796,9 +795,8 @@ void scheme_init_memtrace(Scheme_Env *env) v = scheme_intern_symbol("#%memtrace"); newenv = scheme_primitive_module(v, env); - mtrace_cmark_key = scheme_make_symbol("memory-trace-continuation-mark"); - scheme_add_global("memory-trace-continuation-mark", mtrace_cmark_key, - newenv); + v = scheme_make_symbol("memory-trace-continuation-mark"); + scheme_add_global("memory-trace-continuation-mark", v , newenv); v = scheme_make_prim_w_arity(new_tracking_fun, "new-memtrace-tracking-function", 1, 1); scheme_add_global("new-memtrace-tracking-function", v, newenv);