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)