From 703d948559ae6eb19c0ed525af8dba1a73c31334 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 24 Feb 2006 14:26:37 +0000
Subject: [PATCH] fix informational_messages

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1551 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 changes-5.1.html | 3 +++
 pl/boot.yap      | 3 ++-
 pl/consult.yap   | 6 +++++-
 pl/errors.yap    | 7 ++++++-
 4 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/changes-5.1.html b/changes-5.1.html
index 869482912..fb984fbe7 100644
--- a/changes-5.1.html
+++ b/changes-5.1.html
@@ -16,6 +16,9 @@
 
 <h2>Yap-5.1.0:</h2>
 <ul>
+<li> FIXED: informational_messages was being ignored (Nicos Angelopoulos).</li>
+<li> FIXED: initialization should only be performed after all
+  consulted files are done.</li>
 <li> FIXED: garbage collector now makes refs to erased LU clauses point
   to LogUpdErasedMarker.</li>
 <li> FIXED: get rid of old code referring to LogUpds from within ImmediateSemantics.</li>
diff --git a/pl/boot.yap b/pl/boot.yap
index 27c3186f9..f0a16005e 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -1066,7 +1066,8 @@ throw(Ball) :-
 	call(G),
 	fail.
 '$exec_initialisation_goals' :-
-	recorded('$initialisation',G,R),
+	'$show_consult_level'(Level),
+	recorded('$initialisation',do(Level,G),R),
 	erase(R),
 	G \= '$',
 	'$current_module'(M),
diff --git a/pl/consult.yap b/pl/consult.yap
index daf23d7b2..eb236f090 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -251,7 +251,10 @@ use_module(M,F,Is) :-
 '$initialization'(C) :- db_reference(C), !,
 	'$do_error'(type_error(callable,C),initialization(C)).
 '$initialization'(G) :-
-	recorda('$initialisation',G,_),
+	'$show_consult_level'(Level1),
+	% it will be done after we leave the current consult level.
+	Level is Level1-1,
+	recorda('$initialisation',do(Level,G),_),
 	fail.
 '$initialization'(_).
 
@@ -282,6 +285,7 @@ use_module(M,F,Is) :-
 	( '$access_yap_flags'(15, 0) ->
 	  '$system_catch'(load_files(X, []),Module,Error,'$Error'(Error))
 	;
+	  '$set_value'('$verbose',off),
 	  load_files(X, [silent(true)])
 	),
 	( '$access_yap_flags'(15, 0) -> true ; halt).
diff --git a/pl/errors.yap b/pl/errors.yap
index 03edea294..d7157229a 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -11,8 +11,11 @@
 * File:		errors.yap						 *
 * comments:	error messages for YAP					 *
 *									 *
-* Last rev:     $Date: 2006-01-26 19:20:00 $,$Author: vsc $						 *
+* Last rev:     $Date: 2006-02-24 14:26:37 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.74  2006/01/26 19:20:00  vsc
+* syntax error was giving the offset
+*
 * Revision 1.73  2006/01/20 04:35:28  vsc
 *
 * fix error message
@@ -190,6 +193,8 @@ print_message(Level, Mss) :-
 	'$output_error_message'(Type, Where), !.
 '$print_message'(error,Throw) :-
 	format(user_error,'% YAP: no handler for error ~w~n', [Throw]).
+'$print_message'(informational,_) :-
+	 get_value('$verbose',off).				  
 '$print_message'(informational,M) :-
 	'$do_informational_message'(M).
 '$print_message'(warning,M) :-