From d46bef3adb3a7f1ad1d0b9cbe8ceeec1604bd3bc Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 12 May 2016 11:45:06 +0100
Subject: [PATCH] verbose_load

---
 pl/messages.yap | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/pl/messages.yap b/pl/messages.yap
index 9a7b24f00..e98b88fd9 100644
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -883,7 +883,12 @@ confusing to YAP (who will process the error?). So we write this small
 stub to ensure everything os ok
 
 */
-
+prolog:print_message(Level, _Msg) :-
+	current_prolog_flag(verbose_load, silent),
+	stream_property(_Stream, alias(loop_stream) ),
+	Level \= error,
+	Level \= warning,
+	!.
 prolog:print_message(Level, _Msg) :-
 	current_prolog_flag(verbose, silent),
 	Level \= error,