From 3717053d60532f1ffd1d34c682f3f3bfba798622 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 12 Apr 2002 14:29:38 +0000
Subject: [PATCH] Preserve thread fluids when forking.

---
 scsh/scsh.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index eef2181..5245f5c 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -928,7 +928,8 @@
 	   (maybe-push
 	    (if new-command-level?
 		(lambda (thunk)
-		  (push-command-level thunk 'forking))
+		  (push-command-level (preserve-thread-fluids thunk)
+				      'forking))
 		(lambda (thunk) (thunk)))))
        (maybe-push
 	(lambda ()