diff options
-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))) |