From 3087658f017651ce71d0a23351d3b1dffe6459c8 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 3 Dec 2015 12:53:32 -0800 Subject: [PATCH] Fix missing exn propagation --- prospect/core.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/prospect/core.rkt b/prospect/core.rkt index b02e599..5422784 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -179,8 +179,8 @@ [#f w] [(and q (quit exn final-actions)) (trace-process-step-result e pid behavior old-state exn q) - (enqueue-actions (disable-process pid #f w) pid (append final-actions - (list 'quit)))] + (enqueue-actions (disable-process pid exn w) pid (append final-actions + (list 'quit)))] [(and t (transition new-state new-actions)) (trace-process-step-result e pid behavior old-state #f t) (enqueue-actions (mark-pid-runnable (update-state w pid new-state) pid)