about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-02 15:41:26 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-02 15:42:05 -0800
commit3f29fba81b8bbb4b1c1cba01c30ad2157dc6125b (patch)
tree99836f7273aaa10f8ff2ebf5446ffc3db703f9e7
parent308e1146770b621faa31c64349bd74295d8c6aaf (diff)
downloadmu-3f29fba81b8bbb4b1c1cba01c30ad2157dc6125b.tar.gz
495
-rw-r--r--chessboard-rawterm.mu3
-rw-r--r--mu.arc3
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)))