fix case where unnecessart messages wwere printed while if disables code reading.
This commit is contained in:
parent
46a81e8d2b
commit
ef73a788d9
|
@ -290,6 +290,9 @@ the predicate as multifile.
|
||||||
|
|
||||||
|
|
||||||
*/
|
*/
|
||||||
|
print_message(_, _) :-
|
||||||
|
'$nb_getval'('$if_skip_mode',skip,fail),
|
||||||
|
!.
|
||||||
print_message(force(_Severity), Msg) :- !,
|
print_message(force(_Severity), Msg) :- !,
|
||||||
print(user_error,Msg).
|
print(user_error,Msg).
|
||||||
print_message(error, error(Msg,Info)) :- var(Info), !,
|
print_message(error, error(Msg,Info)) :- var(Info), !,
|
||||||
|
|
Reference in New Issue