~ chicken-core (chicken-5) 8df1732407339c42e2a26fc5253b308783037a4c

commit 8df1732407339c42e2a26fc5253b308783037a4c
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri Nov 10 21:38:04 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Dec 4 19:04:11 2017 +0100

    Similar to 118fce and 596332, clean up old state upon fork
    
    When fork receives a thunk to run in the child process, call it with a
    clean, empty continuation rather than keeping any cruft from the
    parent around.
    
    This should allow GC of objects that are no longer necessary and
    improve memory use somewhat, and perhaps prevent situations like
    that in #1367 when using processes instead of threads.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/posixunix.scm b/posixunix.scm
index 5ac48082..0e22c28e 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1294,8 +1294,10 @@ static C_word C_i_fifo_p(C_word name)
 		 ##sys#kill-other-threads
 		 (lambda (thunk) (thunk)))
 	     (lambda ()
-	       (thunk)
-	       (exit 0)))
+	       (##sys#call-with-cthulhu
+		(lambda ()
+		  (thunk)
+		  (exit 0)))))
 	    pid)))))
 
 (define (process-execute filename #!optional (arglist '()) envlist exactf)