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

`schedule-actions!`

This commit is contained in:
Tony Garnock-Jones 2016-11-28 11:39:38 +13:00
parent 2f7313a489
commit 8202220fec
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/actor.rkt
View File

@ -59,6 +59,7 @@
;;
schedule-action!
schedule-actions!
actor-action
(for-syntax (rename-out [name actor-name]))
@ -930,6 +931,9 @@
(begin (flush-pending-patch!)
(current-pending-actions (list (current-pending-actions) ac)))))
(define (schedule-actions! . acs)
(for [(ac (core:clean-actions acs))] (schedule-action! ac)))
(define (flush-pending-patch!)
(define p (current-pending-patch))
(when (patch-non-empty? p)