diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 20:00:25 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 20:00:25 +0100 |
| commit | 3fdf270456da15447c5a57851610888e2f510574 (patch) | |
| tree | 927ff1041cd00995e6e5a55850da84b2aab0155e /judge | |
| parent | 78383da1e33ce2ee7e330cc6ffbcaa20d91c3600 (diff) | |
| download | CompetIA-3fdf270456da15447c5a57851610888e2f510574.tar.gz CompetIA-3fdf270456da15447c5a57851610888e2f510574.zip | |
Add commands A and Z
Diffstat (limited to 'judge')
| -rw-r--r-- | judge/main.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/judge/main.ml b/judge/main.ml index 18cba43..47d29ba 100644 --- a/judge/main.ml +++ b/judge/main.ml @@ -75,6 +75,8 @@ end = struct curr_view := NavGame (g, n+1) | NavGame (g, n), 'f' when n = List.length (C.hist g) - 1 -> curr_view := NavGame (g, -1) + | NavGame(g, _), 'a' -> curr_view := NavGame(g, 0) + | NavGame(g, _), 'z' -> curr_view := NavGame(g, -1) | ViewLastGame, '\t' | NavGame _, '\t' -> curr_view := MatchList false | Question(_, y, n), 'y' -> y() | Question(_, y, n), 'n' -> curr_view := n |