From bca5839b4910d7ad76a0b2b1edbe9735bd291020 Mon Sep 17 00:00:00 2001
From: Michal Moskal <michal.moskal@microsoft.com>
Date: Mon, 4 Apr 2016 21:52:03 -0700
Subject: [PATCH] Forever moved to common sim

---
 sim/libmbit.ts | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/sim/libmbit.ts b/sim/libmbit.ts
index 8d5ca9f6..bf5bdf88 100644
--- a/sim/libmbit.ts
+++ b/sim/libmbit.ts
@@ -145,6 +145,7 @@ namespace ks.rt {
 
 namespace ks.rt.basic {
     export var pause = thread.pause;
+    export var forever = thread.forever;
 
     export function showNumber(x: number, interval: number) {
         if (interval < 0) return;
@@ -198,17 +199,6 @@ namespace ks.rt.basic {
         scrollImage(leds, interval, 5);
     }
 
-    export function forever(a: RefAction) {
-        function loop() {
-            runtime.runFiberAsync(a)
-                .then(() => Promise.delay(20))
-                .then(loop)
-                .done()
-        }
-        incr(a)
-        loop()
-    }
-
     export function plotLeds(leds: Image): void {
         leds.copyTo(0, 5, board().image, 0)
         runtime.queueDisplayUpdate()