make sure meta-action is an action

2016-02-23 16:08:49 -05:00 · 2016-02-23 16:08:49 -05:00 · 3ec3721266
parent 5c6f8aed31
commit 3ec3721266
1 changed files with 3 additions and 1 deletions
--- 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)