about summary refs log tree commit diff stats
path: root/074keyboard.mu
diff options
context:
space:
mode:
Diffstat (limited to '074keyboard.mu')
-rw-r--r--074keyboard.mu4
1 files changed, 2 insertions, 2 deletions
diff --git a/074keyboard.mu b/074keyboard.mu
index a991a71b..91fdb501 100644
--- a/074keyboard.mu
+++ b/074keyboard.mu
@@ -47,7 +47,7 @@ recipe wait-for-key [
   {
     break-unless x:address:keyboard
     # on fake keyboards 'wait-for-key' behaves just like 'read-key'
-    c:character, x:address:keyboard <- read-key x:address:keyboard
+    c:character, found?:boolean, x:address:keyboard <- read-key x:address:keyboard
     reply c:character, x:address:keyboard/same-as-ingredient:0
   }
   c:character <- wait-for-key-from-keyboard
@@ -60,7 +60,7 @@ recipe send-keys-to-channel [
   chan:address:channel <- next-ingredient
   screen:address <- next-ingredient
   {
-    c:character, found?:boolean <- read-key keyboard:address
+    c:character, found?:boolean, keyboard:address <- read-key keyboard:address
     loop-unless found?:boolean
 #?     print-integer screen:address, c:character #? 1
     print-character screen:address, c:character