From 05c57ec05d655c255d211e2e5fa12221b4a887b6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 29 Nov 2016 10:19:06 +1300
Subject: [PATCH] `perform-actions!`

---
 racket/syndicate/actor.rkt | 8 ++++++++
 1 file changed, 8 insertions(+)

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!))