diff options
-rw-r--r-- | chessboard-rawterm.mu | 3 | ||||
-rw-r--r-- | mu.arc | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/chessboard-rawterm.mu b/chessboard-rawterm.mu index 5ccaf323..03cb867e 100644 --- a/chessboard-rawterm.mu +++ b/chessboard-rawterm.mu @@ -107,7 +107,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) @@ -206,6 +206,7 @@ (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 adf81504..e574f65f 100644 --- a/mu.arc +++ b/mu.arc @@ -463,6 +463,9 @@ (continue))) jump-unless ; convenient helper (let flag (m arg.0) +;? (when ($.current-charterm) +;? (prn flag) +;? ($.charterm-read-key)) (trace "jump" "checking ~" flag) (when (no flag) (= pc.routine* (+ 1 pc.routine* (v arg.1))) |