Fix missing exn propagation
This commit is contained in:
parent
506d74ed42
commit
3087658f01
|
@ -179,7 +179,7 @@
|
||||||
[#f w]
|
[#f w]
|
||||||
[(and q (quit exn final-actions))
|
[(and q (quit exn final-actions))
|
||||||
(trace-process-step-result e pid behavior old-state exn q)
|
(trace-process-step-result e pid behavior old-state exn q)
|
||||||
(enqueue-actions (disable-process pid #f w) pid (append final-actions
|
(enqueue-actions (disable-process pid exn w) pid (append final-actions
|
||||||
(list 'quit)))]
|
(list 'quit)))]
|
||||||
[(and t (transition new-state new-actions))
|
[(and t (transition new-state new-actions))
|
||||||
(trace-process-step-result e pid behavior old-state #f t)
|
(trace-process-step-result e pid behavior old-state #f t)
|
||||||
|
|
Loading…
Reference in New Issue