From 71d4ce1800b5df555aa7786b30f4d5d7fcd30352 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 6 May 2017 13:54:18 -0700
Subject: 3843

---
 sandbox/004-programming-environment.mu | 11 ++++++-----
 sandbox/005-sandbox.mu                 |  6 ++++--
 2 files changed, 10 insertions(+), 7 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu
index 7f0b4a05..796bee36 100644
--- a/sandbox/004-programming-environment.mu
+++ b/sandbox/004-programming-environment.mu
@@ -96,7 +96,8 @@ def event-loop screen:&:screen, console:&:console, env:&:environment, resources:
       {
         break-unless more-events?
         render-all-on-no-more-events? <- copy 1/true  # no rendering now, full rendering on some future event
-        jump +finish-event
+        screen <- update-cursor screen, current-sandbox, env
+        loop +next-event
       }
       {
         break-if more-events?
@@ -105,17 +106,17 @@ def event-loop screen:&:screen, console:&:console, env:&:environment, resources:
           # no more events, and we have to force render
           screen <- render-all screen, env, render
           render-all-on-no-more-events? <- copy 0/false
-          jump +finish-event
+          loop +next-event
         }
         # no more events, no force render
         {
           break-unless render?
           screen <- render-sandbox-side screen, env, render
-          jump +finish-event
+          screen <- update-cursor screen, current-sandbox, env
+          loop +next-event
         }
+        screen <- update-cursor screen, current-sandbox, env
       }
-      +finish-event
-      screen <- update-cursor screen, current-sandbox, env
     }
     loop
   }
diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu
index a7df7a54..da8bc487 100644
--- a/sandbox/005-sandbox.mu
+++ b/sandbox/005-sandbox.mu
@@ -794,7 +794,8 @@ after <global-keypress> [
       *env <- put *env, render-from:offset, render-from
     }
     screen <- render-sandbox-side screen, env, render
-    jump +finish-event
+    screen <- update-cursor screen, current-sandbox, env
+    loop +next-event
   }
 ]
 
@@ -821,7 +822,8 @@ after <global-keypress> [
     render-from <- subtract render-from, 1
     *env <- put *env, render-from:offset, render-from
     screen <- render-sandbox-side screen, env, render
-    jump +finish-event
+    screen <- update-cursor screen, current-sandbox, env
+    loop +next-event
   }
 ]
 
-- 
cgit 1.4.1-2-gfad0