about summary refs log tree commit diff stats
path: root/chessboard.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-03-09 16:41:40 -0800
committerKartik K. Agaram <vc@akkartik.com>2016-03-09 16:41:40 -0800
commitb1a672a2025a5236f09845e13aeb560b01a7d685 (patch)
tree78caeeb10ac296dfbf87c7bd54c519da227d57a3 /chessboard.mu
parent90758e73f8845392d29645a611c2c3bea582faad (diff)
downloadmu-b1a672a2025a5236f09845e13aeb560b01a7d685.tar.gz
2748
Diffstat (limited to 'chessboard.mu')
-rw-r--r--chessboard.mu20
1 files changed, 10 insertions, 10 deletions
diff --git a/chessboard.mu b/chessboard.mu
index c147c771..9f73561e 100644
--- a/chessboard.mu
+++ b/chessboard.mu
@@ -245,28 +245,28 @@ def read-move stdin:address:shared:channel, screen:address:shared:screen -> resu
   local-scope
   load-ingredients
   from-file:number, quit?:boolean, error?:boolean <- read-file stdin, screen
-  return-if quit?, 0/dummy, quit?, error?
-  return-if error?, 0/dummy, quit?, error?
+  return-if quit?, 0/dummy
+  return-if error?, 0/dummy
   # construct the move object
   result:address:shared:move <- new move:type
   x:address:number <- get-address *result, from-file:offset
   *x <- copy from-file
   x <- get-address *result, from-rank:offset
   *x, quit?, error? <- read-rank stdin, screen
-  return-if quit?, 0/dummy, quit?, error?
-  return-if error?, 0/dummy, quit?, error?
+  return-if quit?, 0/dummy
+  return-if error?, 0/dummy
   error? <- expect-from-channel stdin, 45/dash, screen
-  return-if error?, 0/dummy, 0/quit, error?
+  return-if error?, 0/dummy, 0/quit
   x <- get-address *result, to-file:offset
   *x, quit?, error? <- read-file stdin, screen
-  return-if quit?:boolean, 0/dummy, quit?:boolean, error?:boolean
-  return-if error?:boolean, 0/dummy, quit?:boolean, error?:boolean
+  return-if quit?:boolean, 0/dummy
+  return-if error?:boolean, 0/dummy
   x:address:number <- get-address *result, to-rank:offset
   *x, quit?, error? <- read-rank stdin, screen
-  return-if quit?, 0/dummy, quit?, error?
-  return-if error?, 0/dummy, quit?, error?
+  return-if quit?, 0/dummy
+  return-if error?, 0/dummy
   error? <- expect-from-channel stdin, 10/newline, screen
-  return-if error?, 0/dummy, 0/quit, error?
+  return-if error?, 0/dummy, 0/quit
   return result, quit?, error?
 ]