From 8202220fecb36242352c42baa39f8c05a42c1182 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 28 Nov 2016 11:39:38 +1300 Subject: [PATCH] `schedule-actions!` --- racket/syndicate/actor.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt index a869e83..ce41f36 100644 --- a/racket/syndicate/actor.rkt +++ b/racket/syndicate/actor.rkt @@ -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)