about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-18 01:32:56 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-18 01:34:25 -0800
commitb78634acc7e15bf30083ed7c9c8d4aebf14fb9f8 (patch)
tree091dccc65ec15a7d240b4c83d29096cb4b3730ea
parent9dc8507efbdd163be40dacdb66ff21dbb600537a (diff)
downloadmu-b78634acc7e15bf30083ed7c9c8d4aebf14fb9f8.tar.gz
588
Now that there isn't a stdout channel we can postpone the test showing
the need to flush-stdout before clearing screen.
-rw-r--r--chessboard-cursor.mu2
-rw-r--r--mu.arc2
2 files changed, 2 insertions, 2 deletions
diff --git a/chessboard-cursor.mu b/chessboard-cursor.mu
index c1aad3c6..690719b7 100644
--- a/chessboard-cursor.mu
+++ b/chessboard-cursor.mu
@@ -218,7 +218,6 @@
   (fork-helper send-prints-to-stdout:fn nil:literal/globals nil:literal/limit 2:channel-address/raw)
   { begin
     ; print any stray characters from keyboard *before* clearing screen
-    (flush-stdout)
     (clear-screen nil:literal/terminal)
     (print-primitive-to-host (("Stupid text-mode chessboard. White pieces in uppercase; black pieces in lowercase. No checking for legal moves." literal)))
     (cursor-to-next-line nil:literal/terminal)
@@ -241,6 +240,5 @@
 ; tests todo:
 ;   board updates on move
 ;   'q' exits on second move
-;   flush stdout after printing out move and before clearing screen
 ;
 ;   backspace, ctrl-u
diff --git a/mu.arc b/mu.arc
index 8a366a46..b66ec3bb 100644
--- a/mu.arc
+++ b/mu.arc
@@ -2165,6 +2165,8 @@
   }
 )
 
+; remember to call this before you clear the screen or at any other milestone
+; in an interactive program
 (init-fn flush-stdout
   (sleep for-some-cycles:literal 1:literal)
 )