diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-05-20 21:45:02 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-05-20 21:45:02 -0700 |
commit | bc870a4b8462a5b909dec8481cb6b5efe5a2ec34 (patch) | |
tree | b7369cedd70c98318709ec3a5cb9a3f0c2a9de01 /sandbox | |
parent | 14d6f9f39553dc93a27152c66e81afba221c92fa (diff) | |
download | mu-bc870a4b8462a5b909dec8481cb6b5efe5a2ec34.tar.gz |
3873
Diffstat (limited to 'sandbox')
-rw-r--r-- | sandbox/004-programming-environment.mu | 1 | ||||
-rw-r--r-- | sandbox/005-sandbox.mu | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu index af64076d..978e8803 100644 --- a/sandbox/004-programming-environment.mu +++ b/sandbox/004-programming-environment.mu @@ -91,7 +91,6 @@ def event-loop screen:&:screen, console:&:console, env:&:environment, resources: screen <- render-all screen, env, render } } - +finish-event screen <- update-cursor screen, current-sandbox, env loop } diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu index 11c33577..0be2ca31 100644 --- a/sandbox/005-sandbox.mu +++ b/sandbox/005-sandbox.mu @@ -729,7 +729,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 } ] @@ -756,7 +757,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 } ] |