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

`perform-actions!`

This commit is contained in:
Tony Garnock-Jones 2016-11-29 10:19:06 +13:00
parent c77513e838
commit 05c57ec05d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/syndicate/actor.rkt
View File

@ -49,6 +49,7 @@
assert!
retract!
patch!
perform-actions!
flush!
syndicate-effects-available?
@ -1222,6 +1223,13 @@
(ensure-in-script! 'patch!)
(update-stream! *adhoc-label* p))
(define (perform-actions! acs)
(ensure-in-script! 'perform-actions!)
(for [(ac (core:clean-actions acs))]
(match ac
[(? patch? p) (update-stream! *adhoc-label* p)]
[_ (schedule-action! ac)])))
(define (flush!)
(ensure-in-script! 'flush!)
(define ack (gensym 'flush!))