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

Oops -- wanted the raw ctor, not the cooked one

This commit is contained in:
Tony Garnock-Jones 2015-11-18 14:32:43 -05:00
parent c4f8b42787
commit c3e94ff7e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
prospect/endpoint.rkt
View File

@ -115,7 +115,7 @@
(match-define (list e eid ep) task)
(match ((handler-getter ep) e (endpoint-group-state g))
[#f (values cumulative-patch actions g idle?)]
[(<quit> exn ep-acs) (return (quit exn (filter action? (flatten ep-acs))))]
[(<quit> exn ep-acs) (return (<quit> exn (filter action? (flatten ep-acs))))]
[(transition new-state ep-acs)
(define-values (cp acs next-g)
(interpret-endpoint-actions cumulative-patch