diff options
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index 86ac5e84b..280d306bf 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -821,9 +821,9 @@ scm_spawn_thread (scm_t_catch_body body, void *body_data, { SCM body_closure, handler_closure; - body_closure = scm_i_make_catch_body_closure (body, body_data); + body_closure = scm_c_make_thunk (body, body_data); handler_closure = handler == NULL ? SCM_UNDEFINED : - scm_i_make_catch_handler_closure (handler, handler_data); + scm_i_make_catch_handler (handler, handler_data); return scm_call_with_new_thread (body_closure, handler_closure); } |