From d4ccdfb829a859a1739836b2e36786a6756edead Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 27 May 2015 18:33:45 -0700
Subject: 1492

---
 repl.mu | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/repl.mu b/repl.mu
index 4f86caf2..eb0d7263 100644
--- a/repl.mu
+++ b/repl.mu
@@ -85,7 +85,7 @@ recipe read-instruction [
 #?       $print [decremented to ], current-color-count:number, [ 
 #? ] #? 1
       {
-        reset-color?:boolean <- lesser-or-equal current-color-count:number, 1:literal  # last key we're about to backspace over in this iteration
+        reset-color?:boolean <- lesser-or-equal current-color-count:number, 0:literal
         break-unless reset-color?:boolean
 #?         $print [resetting color
 #?   ] #? 1
@@ -175,3 +175,26 @@ scenario read-instruction-cancel-comment-on-backspace2 [
     .                              .
   ]
 ]
+
+scenario read-instruction-cancel-comment-on-backspace3 [
+  assume-screen 30:literal/width, 5:literal/height
+  assume-keyboard [#a<z
+]
+  # setup: replace '<'s with backspace key since we can't represent backspace in strings
+  run [
+    buf:address:array:character <- get keyboard:address:keyboard/deref, data:offset
+    first:address:character <- index-address buf:address:array:character/deref, 2:literal
+    first:address:character/deref <- copy 8:literal/backspace
+  ]
+  run [
+    read-instruction keyboard:address, screen:address
+  ]
+  screen-should-contain-in-color 4:literal/blue, [
+    .#z                            .
+    .                              .
+  ]
+  screen-should-contain-in-color 7:literal/white, [
+    .                              .
+    .                              .
+  ]
+]
-- 
cgit 1.4.1-2-gfad0