diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-06-22 09:33:29 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-06-22 09:33:29 -0700 |
commit | 5aac71e8758501964b83591fc26613bacbc1b758 (patch) | |
tree | 595dfb339c6847c66c8d4dee7fa6c83e8c1b1e87 /chessboard.mu | |
parent | 124c67645cb6f1b9f06d7104c5398fa4732e2f25 (diff) | |
download | mu-5aac71e8758501964b83591fc26613bacbc1b758.tar.gz |
3935
Diffstat (limited to 'chessboard.mu')
-rw-r--r-- | chessboard.mu | 6 |
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 |