From 3ec3721266774c445b89df85ac1aa93c7e3d458d Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Tue, 23 Feb 2016 16:08:49 -0500 Subject: [PATCH] make sure meta-action is an action --- prospect/core.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/prospect/core.rkt b/prospect/core.rkt index 88c9d92..e9b7d70 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -382,7 +382,9 @@ [(entry (in-list patches))] (match-define (cons label event) entry) (send-event/guard event label w)) - meta-action)) + (if (action? meta-action) + meta-action + '()))) ;; PID Exception Network -> Network (define (disable-process cw pid exn)