diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 16:06:53 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-14 16:06:53 -0800 |
| commit | 631d3b4e98183d800bc9777e88cca339ad063d35 (patch) | |
| tree | 6f29a52fcec6e539b76be2222ad10e664cf139be /chessboard-cursor.arc.t | |
| parent | 2674966e94b861f5c90021ff02d20dff9b0a70fc (diff) | |
| download | mu-631d3b4e98183d800bc9777e88cca339ad063d35.tar.gz | |
563 - check actual errors during move validation
Diffstat (limited to 'chessboard-cursor.arc.t')
| -rw-r--r-- | chessboard-cursor.arc.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/chessboard-cursor.arc.t b/chessboard-cursor.arc.t index d52183a2..f3ff8c4a 100644 --- a/chessboard-cursor.arc.t +++ b/chessboard-cursor.arc.t @@ -96,7 +96,9 @@ (run 'main) ;? (each routine completed-routines* ;? (prn " " routine)) -(if (ran-to-completion 'read-file) +(if (or (ran-to-completion 'read-file) + (let routine routine-running!read-file + (~posmatch "file too high" rep.routine!error))) (prn "F - 'read-file' checks that file lies between 'a' and 'h'")) (reset) @@ -113,7 +115,9 @@ (sleep until-routine-done:literal r:integer/routine) ]))) (run 'main) -(if (ran-to-completion 'read-rank) +(if (or (ran-to-completion 'read-rank) + (let routine routine-running!read-rank + (~posmatch "rank too high" rep.routine!error))) (prn "F - 'read-rank' checks that rank lies between '1' and '8'")) (reset) |