about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-02 15:14:29 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-02 15:14:45 -0800
commit047fe3f0adcbd8f1f4a8ee5aab6facc433bfae57 (patch)
tree4be79f414a8965a49bdf9d9ffd66a35233bb0b86
parent98e6a5922dd308f0d7cf302ee0c0b5bc3a8f5a2b (diff)
downloadmu-047fe3f0adcbd8f1f4a8ee5aab6facc433bfae57.tar.gz
489 - first regression in chessboard
Amazing how quickly we need tests or manual QA.
-rw-r--r--chessboard-rawterm.mu3
-rw-r--r--mu.arc4
2 files changed, 4 insertions, 3 deletions
diff --git a/chessboard-rawterm.mu b/chessboard-rawterm.mu
index 4cea6c8b..409d1756 100644
--- a/chessboard-rawterm.mu
+++ b/chessboard-rawterm.mu
@@ -97,7 +97,7 @@
   { begin
     (quit:boolean <- equal c:character ((#\q literal)))
     (break-unless quit:boolean)
-    (reply)
+    (reply nil:literal)
   }
   (from-file:integer <- character-to-integer c:character)
   (from-file:integer <- subtract from-file:integer file-base:integer)
@@ -196,5 +196,6 @@
     (b:board-address <- make-move b:board-address m:move-address)
     (loop)
   }
+  (cursor-to-next-line)
   (console-off)
 ])
diff --git a/mu.arc b/mu.arc
index b4223c5b..d7ca1afe 100644
--- a/mu.arc
+++ b/mu.arc
@@ -471,8 +471,8 @@
                       (continue)))
                 jump-unless  ; convenient helper
                   (let flag (m arg.0)
-                    (trace "jump" "checking that " flag " is not t")
-                    (unless (is t flag)
+                    (trace "jump" "checking " flag)
+                    (when (no flag)
                       (= pc.routine* (+ 1 pc.routine* (v arg.1)))
                       (trace "jump" "jumping to " pc.routine*)
                       (continue)))