diff options
| -rw-r--r-- | chessboard-rawterm.mu | 4 | ||||
| -rw-r--r-- | mu.arc | 2 |
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 |