fix thread-swap callbacks

This commit is contained in:
Matthew Flatt 2012-10-30 17:24:04 -06:00
parent d7bf677645
commit 8aee78a4bb

View File

@ -3032,7 +3032,7 @@ void scheme_add_swap_callback(Scheme_Closure_Func f, Scheme_Object *data)
Scheme_Object *p;
p = scheme_make_raw_pair((Scheme_Object *)f, data);
thread_swap_callbacks = scheme_make_pair(p, thread_swap_callbacks);
thread_swap_callbacks = scheme_make_raw_pair(p, thread_swap_callbacks);
}
void scheme_add_swap_out_callback(Scheme_Closure_Func f, Scheme_Object *data)