about summary refs log tree commit diff stats
path: root/html/074keyboard.mu.html
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-30 19:30:33 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-30 19:37:02 -0700
commit4bbd3ded0b767ae0919551776e4c17189140e735 (patch)
tree29300d13dc2b869378fbde7f5456b1cfb519482d /html/074keyboard.mu.html
parent06f3cebe3eb627e18910b6394bfde88c806c8f91 (diff)
downloadmu-4bbd3ded0b767ae0919551776e4c17189140e735.tar.gz
1517
Diffstat (limited to 'html/074keyboard.mu.html')
-rw-r--r--html/074keyboard.mu.html12
1 files changed, 6 insertions, 6 deletions
diff --git a/html/074keyboard.mu.html b/html/074keyboard.mu.html
index 558c8d16..dc0ab783 100644
--- a/html/074keyboard.mu.html
+++ b/html/074keyboard.mu.html
@@ -10,16 +10,16 @@
 <meta name="colorscheme" content="minimal">
 <style type="text/css">
 <!--
-pre { white-space: pre-wrap; font-family: monospace; color: #d0d0d0; background-color: #000000; }
-body { font-family: monospace; color: #d0d0d0; background-color: #000000; }
+pre { white-space: pre-wrap; font-family: monospace; color: #d0d0d0; background-color: #080808; }
+body { font-family: monospace; color: #d0d0d0; background-color: #080808; }
 * { font-size: 1em; }
-.CommentedCode { color: #6c6c6c; }
-.muRecipe { color: #ff8700; }
 .Delimiter { color: #c000c0; }
 .Comment { color: #8080ff; }
 .Constant { color: #008080; }
 .Special { color: #ff6060; }
 .Identifier { color: #008080; }
+.muRecipe { color: #ff8700; }
+.CommentedCode { color: #6c6c6c; }
 -->
 </style>
 
@@ -80,7 +80,7 @@ container keyboard <span class="Constant">[  # can't think of another word like
   <span class="Delimiter">{</span>
     <span class="Identifier">break-unless</span> x:address:keyboard
     <span class="Comment"># on fake keyboards 'wait-for-key' behaves just like 'read-key'</span>
-    c:character, x:address:keyboard<span class="Special"> &lt;- </span>read-key x:address:keyboard
+    c:character, found?:boolean, x:address:keyboard<span class="Special"> &lt;- </span>read-key x:address:keyboard
     <span class="Identifier">reply</span> c:character, x:address:keyboard/same-as-ingredient:0
   <span class="Delimiter">}</span>
   c:character<span class="Special"> &lt;- </span>wait-for-key-from-keyboard
@@ -93,7 +93,7 @@ container keyboard <span class="Constant">[  # can't think of another word like
   chan:address:channel<span class="Special"> &lt;- </span><span class="Identifier">next-ingredient</span>
   screen:address<span class="Special"> &lt;- </span><span class="Identifier">next-ingredient</span>
   <span class="Delimiter">{</span>
-    c:character, found?:boolean<span class="Special"> &lt;- </span>read-key keyboard:address
+    c:character, found?:boolean, keyboard:address<span class="Special"> &lt;- </span>read-key keyboard:address
     <span class="Identifier">loop-unless</span> found?:boolean
 <span class="CommentedCode">#?     print-integer screen:address, c:character #? 1</span>
     print-character screen:address, c:character