diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-05-06 13:54:18 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-05-06 13:54:18 -0700 |
commit | 71d4ce1800b5df555aa7786b30f4d5d7fcd30352 (patch) | |
tree | b9fc3598491f215a64abe65f58297175e7b106da /sandbox/004-programming-environment.mu | |
parent | 769a68cf1df678270f28c55a39f0aeca964aaf25 (diff) | |
download | mu-71d4ce1800b5df555aa7786b30f4d5d7fcd30352.tar.gz |
3843
Diffstat (limited to 'sandbox/004-programming-environment.mu')
-rw-r--r-- | sandbox/004-programming-environment.mu | 11 |
1 files changed, 6 insertions, 5 deletions
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 } |