diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-02 15:41:26 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-02 15:42:05 -0800 |
| commit | 3f29fba81b8bbb4b1c1cba01c30ad2157dc6125b (patch) | |
| tree | 99836f7273aaa10f8ff2ebf5446ffc3db703f9e7 | |
| parent | 308e1146770b621faa31c64349bd74295d8c6aaf (diff) | |
| download | mu-3f29fba81b8bbb4b1c1cba01c30ad2157dc6125b.tar.gz | |
495
| -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))) |