about summary refs log tree commit diff stats
path: root/edit
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-10-23 15:50:27 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-10-23 15:50:57 -0700
commitd803b68769947a419ef176d5c80446fcba5e9ee3 (patch)
tree37e48143eadbd6297d835819e01176e46c7fd939 /edit
parent300a1d6e8033f1766d5203b15ff3ea8570e4b79b (diff)
downloadmu-d803b68769947a419ef176d5c80446fcba5e9ee3.tar.gz
3565
Cleaning up the console interfaces before we start changing the socket
interfaces to look like them. Reading from sockets need to be
non-blocking just like reading from the console.
Diffstat (limited to 'edit')
-rw-r--r--edit/002-typing.mu2
-rw-r--r--edit/004-programming-environment.mu2
2 files changed, 2 insertions, 2 deletions
diff --git a/edit/002-typing.mu b/edit/002-typing.mu
index 12448e18..906422f5 100644
--- a/edit/002-typing.mu
+++ b/edit/002-typing.mu
@@ -20,7 +20,7 @@ def editor-event-loop screen:&:screen, console:&:console, editor:&:editor -> scr
     cursor-row:num <- get *editor, cursor-row:offset
     cursor-column:num <- get *editor, cursor-column:offset
     screen <- move-cursor screen, cursor-row, cursor-column
-    e:event, console, found?:bool, quit?:bool <- read-event console
+    e:event, found?:bool, quit?:bool, console <- read-event console
     loop-unless found?
     break-if quit?  # only in tests
     trace 10, [app], [next-event]
diff --git a/edit/004-programming-environment.mu b/edit/004-programming-environment.mu
index d7107b35..13969cf3 100644
--- a/edit/004-programming-environment.mu
+++ b/edit/004-programming-environment.mu
@@ -61,7 +61,7 @@ def event-loop screen:&:screen, console:&:console, env:&:environment -> screen:&
   {
     # looping over each (keyboard or touch) event as it occurs
     +next-event
-    e:event, console, found?:bool, quit?:bool <- read-event console
+    e:event, found?:bool, quit?:bool, console <- read-event console
     loop-unless found?
     break-if quit?  # only in tests
     trace 10, [app], [next-event]