summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c1
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