fix case where unnecessart messages wwere printed while if disables code reading.

2014-10-07 10:28:43 +01:00 · 2014-10-07 10:28:43 +01:00 · ef73a788d9
parent 46a81e8d2b
commit ef73a788d9
1 changed files with 3 additions and 0 deletions
--- a/pl/errors.yap
+++ b/pl/errors.yap
@ -290,6 +290,9 @@ the predicate as multifile.

 
 */
+print_message(_, _) :-
+    '$nb_getval'('$if_skip_mode',skip,fail), 
+    !.
 print_message(force(_Severity), Msg) :- !,
 	print(user_error,Msg).
 print_message(error, error(Msg,Info)) :- var(Info), !,