diff options
author | 2014-12-13 18:11:45 +0100 | |
---|---|---|
committer | 2014-12-17 15:05:04 +0100 | |
commit | cee56f902fdae8a3de13ea93f0209f08ac256b08 (patch) | |
tree | 77a77167d51dc5212d823996e7ee2a030c869894 | |
parent | 9a1bbeee7712f21d55cc352020ff51203cac7c51 (diff) |
Arguments: warn only if no option is given (Close 3860)
-rw-r--r-- | toplevel/vernacentries.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 1b199d83c..809f3a07f 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1002,7 +1002,6 @@ let vernac_declare_implicits locality r l = (List.map (List.map (fun (ex,b,f) -> ex, (b,true,f))) imps) let vernac_declare_arguments locality r l nargs flags = - let assert_specified = List.mem `Assert flags in let extra_scope_flag = List.mem `ExtraScopes flags in let names = List.map (List.map (fun (id, _,_,_,_) -> id)) l in let names, rest = List.hd names, List.tl names in @@ -1125,7 +1124,7 @@ let vernac_declare_arguments locality r l nargs flags = some_implicits_specified || some_scopes_specified || some_simpl_flags_specified) && - not assert_specified then + List.length flags = 0 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'") |