libguile/Makefile.am (snarfcppopts): Remove CFLAGS

[bpt/guile.git] / libguile / posix.c

diff --git a/libguile/posix.c b/libguile/posix.c
index 2654716..494df1e 100644 (file)
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1224,6 +1224,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