diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-08 19:55:23 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-08 19:55:23 +0000 |
commit | d63320ceb1c56710f5e953742dd5d6cf43aacbdf (patch) | |
tree | 9a6eec0f6e330270aab09af8ae9c744282dc8a82 /toplevel/locality.ml | |
parent | c9467e5684f9a71cb82ddc72b5b9d501b32b5c5e (diff) |
Uniformizing the [if_warn] flag used for warning printing and put
it into the standard logger instead.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16491 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/locality.ml')
-rw-r--r-- | toplevel/locality.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/toplevel/locality.ml b/toplevel/locality.ml index 49478cb26..6ee0e99b0 100644 --- a/toplevel/locality.ml +++ b/toplevel/locality.ml @@ -32,8 +32,7 @@ let enforce_locality_full locality_flag local = Errors.error "Use only prefix \"Local\"." | None -> if local then begin - Flags.if_warn - Pp.msg_warning (Pp.str"Obsolete syntax: use \"Local\" as a prefix."); + Pp.msg_warning (Pp.str "Obsolete syntax: use \"Local\" as a prefix."); Some true end else None |