Preserve thread fluids when forking.
This commit is contained in:
parent
104ed36666
commit
3717053d60
|
@ -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 ()
|
||||||
|
|
Loading…
Reference in New Issue