diff options
| author |  Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2018-04-25 16:08:51 +0200 |
|---|---|---|
| committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2018-05-21 17:54:13 +0200 |
| commit | 2d9630171c6e17e85eb9c1b51a59fa381716380a (patch) | |
| tree | 3b5c4bf90218b4e01adc55be6c288d342f120f21 /vernac/obligations.ml | |
| parent | d6eb4a26648817f6b034e95c02622cadf0fa65ca (diff) | |
Fix an anomaly when calling Obligation 0 or Obligation -1.
I didn't change the parser which expects an integer instead of a positive number
because changing it would also mean having worse error messages because of our
current LL parser. The error message would have been:
Syntax error: 'Tactic' ':=' expected after 'Obligation' (in
[vernac:command]).
Diffstat (limited to 'vernac/obligations.ml')
| -rw-r--r-- | vernac/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index ae1065ef5..1885fc38e 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -958,7 +958,7 @@ and obligation (user_num, name, typ) tac = let num = pred user_num in let prg = get_prog_err name in let obls, rem = prg.prg_obligations in - if num < Array.length obls then + if num >= 0 && num < Array.length obls then let obl = obls.(num) in match obl.obl_body with None -> solve_obligation prg num tac |