diff options
| author | Enrico Tassi | 2016-08-23 16:55:56 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2016-08-23 16:55:56 +0200 |
| commit | 940a6286b62a095f3d6a0f3d4851f56583a852c8 (patch) | |
| tree | 2c64f819aa2c93895a8323e43efbe6c7e4ef7996 | |
| parent | fa7d01708e4af53a6adeddf563b57bc38fc8d2fe (diff) | |
Arguments: give / after last ! error detection fixed
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index f69c4fa186..f87fa8a447 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1064,7 +1064,7 @@ let vernac_declare_arguments locality r l nargs flags = vernac_declare_implicits locality r [] else if some_implicits_specified || List.mem `ClearImplicits flags then vernac_declare_implicits locality r implicits; - if nargs >= 0 && nargs < List.fold_left max 0 rargs then + if nargs >= 0 && nargs <= List.fold_left max ~-1 rargs then error "The \"/\" option must be placed after the last \"!\"."; let no_flags = List.is_empty flags in let rec narrow = function |