From d63320ceb1c56710f5e953742dd5d6cf43aacbdf Mon Sep 17 00:00:00 2001 From: ppedrot Date: Wed, 8 May 2013 19:55:23 +0000 Subject: 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 --- library/goptions.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'library/goptions.ml') diff --git a/library/goptions.ml b/library/goptions.ml index 597c23b7d..80539a156 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -314,12 +314,12 @@ let set_int_option_value_gen locality = set_option_value locality check_int_value let set_bool_option_value_gen locality key v = try set_option_value locality check_bool_value key v - with UserError (_,s) -> Flags.if_warn msg_warning s + with UserError (_,s) -> msg_warning s let set_string_option_value_gen locality = set_option_value locality check_string_value let unset_option_value_gen locality key = try set_option_value locality check_unset_value key () - with UserError (_,s) -> Flags.if_warn msg_warning s + with UserError (_,s) -> msg_warning s let set_int_option_value = set_int_option_value_gen None let set_bool_option_value = set_bool_option_value_gen None -- cgit v1.2.3