diff options
| author | Pierre-Marie Pédrot | 2015-01-29 22:40:58 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-01-29 22:40:58 +0100 |
| commit | a340265c9f88df990649481c8ecbe8a513ac4756 (patch) | |
| tree | c9e02defb10bcdb258d75cb6f156657654f65f1f /toplevel | |
| parent | 51b15993cb4a9cc2521b6107b7f4195b21040087 (diff) | |
| parent | db293d185f8deb091d4b086f327caa0f376d67d7 (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index bb20730015..c6e40725ba 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1124,6 +1124,7 @@ let vernac_declare_arguments locality r l nargs flags = vernac_declare_implicits locality r implicits; if nargs >= 0 && nargs < List.fold_left max 0 rargs then error "The \"/\" option must be placed after the last \"!\"."; + let no_flags = List.is_empty flags in let rec narrow = function | #Reductionops.ReductionBehaviour.flag as x :: tl -> x :: narrow tl | [] -> [] | _ :: tl -> narrow tl in @@ -1141,7 +1142,7 @@ let vernac_declare_arguments locality r l nargs flags = some_implicits_specified || some_scopes_specified || some_simpl_flags_specified) && - List.length flags = 0 then + no_flags then msg_warning (strbrk "This command is just asserting the number and names of arguments of " ++ pr_global sr ++ strbrk". If this is what you want add ': assert' to silence the warning. If you want to clear implicit arguments add ': clear implicits'. If you want to clear notation scopes add ': clear scopes'") |