diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2017-09-23 18:31:26 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2017-09-23 18:41:47 -0700 |
commit | 72cf994869e19f6bdc4678e1122f0082d07d4a11 (patch) | |
tree | e7a39da677884476a3088a96b1dab125d310316d /chessboard.mu | |
parent | 50685c29bdafaa3fab19c832b421707b0442fdc6 (diff) | |
download | mu-72cf994869e19f6bdc4678e1122f0082d07d4a11.tar.gz |
4002
Diffstat (limited to 'chessboard.mu')
-rw-r--r-- | chessboard.mu | 37 |
1 files changed, 12 insertions, 25 deletions
diff --git a/chessboard.mu b/chessboard.mu index 7351c5ce..27e16fd8 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -268,21 +268,12 @@ def read-file stdin:&:source:char, screen:&:screen -> file:num, quit:bool, error load-ingredients c:char, eof?:bool, stdin <- read stdin return-if eof?, 0/dummy, 1/quit, 0/error - { - q-pressed?:bool <- equal c, 81/Q - break-unless q-pressed? - return 0/dummy, 1/quit, 0/error - } - { - q-pressed? <- equal c, 113/q - break-unless q-pressed? - return 0/dummy, 1/quit, 0/error - } - { - empty-fake-keyboard?:bool <- equal c, 0/eof - break-unless empty-fake-keyboard? - return 0/dummy, 1/quit, 0/error - } + q-pressed?:bool <- equal c, 81/Q + return-if q-pressed?, 0/dummy, 1/quit, 0/error + q-pressed? <- equal c, 113/q + return-if q-pressed?, 0/dummy, 1/quit, 0/error + empty-fake-keyboard?:bool <- equal c, 0/eof + return-if empty-fake-keyboard?, 0/dummy, 1/quit, 0/error { newline?:bool <- equal c, 10/newline break-unless newline? @@ -315,16 +306,12 @@ def read-rank stdin:&:source:char, screen:&:screen -> rank:num, quit?:bool, erro load-ingredients c:char, eof?:bool, stdin <- read stdin return-if eof?, 0/dummy, 1/quit, 0/error - { - q-pressed?:bool <- equal c, 8/Q - break-unless q-pressed? - return 0/dummy, 1/quit, 0/error - } - { - q-pressed? <- equal c, 113/q - break-unless q-pressed? - return 0/dummy, 1/quit, 0/error - } + q-pressed?:bool <- equal c, 81/Q + return-if q-pressed?, 0/dummy, 1/quit, 0/error + q-pressed? <- equal c, 113/q + return-if q-pressed?, 0/dummy, 1/quit, 0/error + empty-fake-keyboard?:bool <- equal c, 0/eof + return-if empty-fake-keyboard?, 0/dummy, 1/quit, 0/error { newline?:bool <- equal c, 10 # newline break-unless newline? |