Preserve thread fluids when forking.

2002-04-12 14:29:38 +00:00 · 2002-04-12 14:29:38 +00:00 · 3717053d60
parent 104ed36666
commit 3717053d60
1 changed files with 2 additions and 1 deletions
--- 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 ()