about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-02 14:46:19 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-02 14:46:57 -0800
commit3c60e387223a8cbf1ceac1a5cc9f158e42eb6fdf (patch)
tree61d2b8b78afb26a4132118da0c38e64c18947ce7
parent27b5e8a99f9b2ebb8aeca10a0e85f9e63172bc3c (diff)
downloadmu-3c60e387223a8cbf1ceac1a5cc9f158e42eb6fdf.tar.gz
486
-rw-r--r--chessboard-rawterm.mu4
-rw-r--r--mu.arc2
2 files changed, 3 insertions, 3 deletions
diff --git a/chessboard-rawterm.mu b/chessboard-rawterm.mu
index 067d0f1e..38f5c19b 100644
--- a/chessboard-rawterm.mu
+++ b/chessboard-rawterm.mu
@@ -48,10 +48,8 @@
   (default-scope:scope-address <- new scope:literal 30:literal)
   (b:board-address <- next-input)
   (row:integer <- copy 7:literal)
-  (screen-y:integer <- copy 1:literal)
   ; print each row
   { begin
-    (cursor 1:literal screen-y:integer)
     (done?:boolean <- less-than row:integer 0:literal)
     (break-if done?:boolean)
     ; print each square in the row
@@ -67,7 +65,7 @@
       (loop)
     }
     (row:integer <- subtract row:integer 1:literal)
-    (screen-y:integer <- add screen-y:integer 1:literal)
+    (cursor-to-next-line)
     (loop)
   }
 ])
diff --git a/mu.arc b/mu.arc
index 22effc69..b4223c5b 100644
--- a/mu.arc
+++ b/mu.arc
@@ -580,6 +580,8 @@
                   (do1 nil ($.charterm-clear-line))
                 cursor
                   (do1 nil ($.charterm-cursor (m arg.0) (m arg.1)))
+                cursor-to-next-line
+                  (do1 nil ($.charterm-newline))
                 print-primitive
                   (do1 nil ((if ($.current-charterm) $.charterm-display pr) (m arg.0)))
                 read-key