verbosity cleanup -- not finished yet

2016-05-10 15:44:28 +01:00
parent e98c4c9f2a
commit 516f89b76d
4 changed files with 8 additions and 8 deletions
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -884,13 +884,15 @@ stub to ensure everything os ok

 */

+prolog:print_message(Level, _Msg) :-
+	current_prolog_flag(verbose, silent),
+	Level \= error,
+	Level \= warning,
+	!.
 prolog:print_message(_, _Msg) :-
 	% first step at hook processi --ng
 	'$nb_getval'('$if_skip_mode',skip,fail),
 	!.
-prolog:print_message(informational, _Msg) :-
-	current_prolog_flag(verbose, silent),
-	!.
 prolog:print_message(banner, _Msg) :-
 	current_prolog_flag(verbose, silent),
 	!.