diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt index 568ba9f..15085f9 100644 --- a/racket/syndicate/actor.rkt +++ b/racket/syndicate/actor.rkt @@ -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!))