about summary refs log tree commit diff stats
path: root/chessboard.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2017-06-22 09:33:29 -0700
committerKartik K. Agaram <vc@akkartik.com>2017-06-22 09:33:29 -0700
commit5aac71e8758501964b83591fc26613bacbc1b758 (patch)
tree595dfb339c6847c66c8d4dee7fa6c83e8c1b1e87 /chessboard.mu
parent124c67645cb6f1b9f06d7104c5398fa4732e2f25 (diff)
downloadmu-5aac71e8758501964b83591fc26613bacbc1b758.tar.gz
3935
Diffstat (limited to 'chessboard.mu')
-rw-r--r--chessboard.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/chessboard.mu b/chessboard.mu
index 19accb52..7351c5ce 100644
--- a/chessboard.mu
+++ b/chessboard.mu
@@ -158,7 +158,7 @@ def print-board screen:&:screen, board:board -> screen:&:screen [
     col:num <- copy 0
     {
       done?:bool <- equal col:num, 8
-      break-if done?:bool
+      break-if done?
       f:&:@:char <- index *board, col
       c:char <- index *f, row
       print screen, c
@@ -251,8 +251,8 @@ def read-move stdin:&:source:char, screen:&:screen -> result:&:move, quit?:bool,
   error? <- expect-from-channel stdin, 45/dash, screen
   return-if error?, 0/dummy, 0/quit
   to-file:num, quit?, error? <- read-file stdin, screen
-  return-if quit?:bool, 0/dummy
-  return-if error?:bool, 0/dummy
+  return-if quit?, 0/dummy
+  return-if error?, 0/dummy
   *result <- put *result, to-file:offset, to-file
   to-rank:num, quit?, error? <- read-rank stdin, screen
   return-if quit?, 0/dummy