diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-02 15:14:29 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-02 15:14:45 -0800 |
commit | 047fe3f0adcbd8f1f4a8ee5aab6facc433bfae57 (patch) | |
tree | 4be79f414a8965a49bdf9d9ffd66a35233bb0b86 | |
parent | 98e6a5922dd308f0d7cf302ee0c0b5bc3a8f5a2b (diff) | |
download | mu-047fe3f0adcbd8f1f4a8ee5aab6facc433bfae57.tar.gz |
489 - first regression in chessboard
Amazing how quickly we need tests or manual QA.
-rw-r--r-- | chessboard-rawterm.mu | 3 | ||||
-rw-r--r-- | mu.arc | 4 |
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))) |