syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

make sure meta-action is an action

This commit is contained in:
Sam Caldwell 2016-02-23 16:08:49 -05:00
parent 5c6f8aed31
commit 3ec3721266
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
prospect/core.rkt
View File

@ -382,7 +382,9 @@
[(entry (in-list patches))] [(entry (in-list patches))]
(match-define (cons label event) entry) (match-define (cons label event) entry)
(send-event/guard event label w)) (send-event/guard event label w))
meta-action)) (if (action? meta-action)
meta-action
'())))
;; PID Exception Network -> Network ;; PID Exception Network -> Network
(define (disable-process cw pid exn) (define (disable-process cw pid exn)