From ef73a788d95aa931e5bce262980d1556615b54cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Tue, 7 Oct 2014 10:28:43 +0100
Subject: [PATCH] fix case where unnecessart messages wwere printed while if
 disables code reading.

---
 pl/errors.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pl/errors.yap b/pl/errors.yap
index 5a5fcb9b5..b7db11e0c 100644
--- 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), !,