From cee56f902fdae8a3de13ea93f0209f08ac256b08 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Sat, 13 Dec 2014 18:11:45 +0100
Subject: Arguments: warn only if no option is given (Close 3860)

---
 toplevel/vernacentries.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 1b199d83cd..809f3a07f4 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'")
 
 
-- 
cgit v1.2.3