diff options
Diffstat (limited to 'libguile/posix.c')
-rw-r--r-- | libguile/posix.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/posix.c b/libguile/posix.c index 3e03c86c0..0443f95ea 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1225,6 +1225,7 @@ SCM_DEFINE (scm_fork, "primitive-fork", 0, 0, 0, #define FUNC_NAME s_scm_fork { int pid; + scm_i_finalizer_pre_fork (); if (scm_ilength (scm_all_threads ()) != 1) /* Other threads may be holding on to resources that Guile needs -- it is not safe to permit one thread to fork while others are |