summaryrefslogtreecommitdiff
path: root/libguile/threads.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/threads.c')
-rw-r--r--libguile/threads.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/threads.c b/libguile/threads.c
index 0c68221d7..33f092768 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -411,6 +411,9 @@ create_thread (scm_t_catch_body body, void *body_data,
all_threads = new_threads;
thread_count++;
scm_i_plugin_mutex_unlock (&thread_admin_mutex);
+
+ scm_remember_upto_here_1 (root);
+
scm_i_enter_guile (parent);
}