From 04bbcd25ab9439b2cc4bea88b3efd730945d1d3c Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Sun, 12 Dec 2021 23:02:58 +0100
Subject: [PATCH] Turn.after

---
 packages/core/src/runtime/actor.ts | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packages/core/src/runtime/actor.ts b/packages/core/src/runtime/actor.ts
index d81227f..e4269f7 100644
--- a/packages/core/src/runtime/actor.ts
+++ b/packages/core/src/runtime/actor.ts
@@ -459,6 +459,15 @@ export class Turn {
         if (a !== null) this.enqueue(ref.relay, () => ref.target.message?.(assertion));
     }
 
+    after(delayMilliseconds: number, a: LocalAction): any {
+        const facet = this.activeFacet;
+        const release = facet.preventInertCheck();
+        return setTimeout(() => {
+            release();
+            facet.turn(a);
+        }, delayMilliseconds);
+    }
+
     enqueue(relay: Facet, a0: LocalAction): void {
         if (this.queues === null) {
             throw new Error("Attempt to reuse a committed Turn");