Preserve thread fluids when forking.

This commit is contained in:
sperber 2002-04-12 14:29:38 +00:00
parent 104ed36666
commit 3717053d60
1 changed files with 2 additions and 1 deletions

View File

@ -928,7 +928,8 @@
(maybe-push (maybe-push
(if new-command-level? (if new-command-level?
(lambda (thunk) (lambda (thunk)
(push-command-level thunk 'forking)) (push-command-level (preserve-thread-fluids thunk)
'forking))
(lambda (thunk) (thunk))))) (lambda (thunk) (thunk)))))
(maybe-push (maybe-push
(lambda () (lambda ()