From 0645040602f116c8227e0e0b92f47a0b30ee85d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 28 May 2010 16:59:52 +0100
Subject: [PATCH] get rid of debug messages.

---
 pl/consult.yap | 2 --
 1 file changed, 2 deletions(-)

diff --git a/pl/consult.yap b/pl/consult.yap
index d16755518..93e61a63e 100755
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -321,7 +321,6 @@ use_module(M,F,Is) :-
 	'$show_consult_level'(Level1),
 	% it will be done after we leave the current consult level.
 	Level is Level1-1,
-	writeln(+Level:G),
 	recordz('$initialisation',do(Level,G),_),
 	fail.
 '$initialization'(_).
@@ -393,7 +392,6 @@ use_module(M,F,Is) :-
 		(recorded('$initialisation',do(Level,G),R), erase(R), G\='$'),
 		LGs),
 	lists:member(G,LGs),
-	writeln(doing:Level:G),
 	nb_getval('$system_mode', OldMode),
         ( OldMode == on -> '$exit_system_mode' ; true ),
 	% run initialization under user control (so allow debugging this stuff).