From 87532119c6ed15e2421f6653480b72a69f480d95 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 14 Feb 2002 19:36:12 +0000
Subject: [PATCH] fix reconsult at boot.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@362 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 changes4.3.html | 2 ++
 pl/consult.yap  | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/changes4.3.html b/changes4.3.html
index f3e090916..f36d3e16c 100644
--- a/changes4.3.html
+++ b/changes4.3.html
@@ -16,6 +16,8 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: g(X) :- (Z is 2*X; a(Z)) Z cannot be seen as a free
+	var. (Nicos Angelopoulos).</li>
 	<li>FIXED: atom_concat was not allocating heap correctly (Nicos Angelopoulos).</li>
 	<li>NEW: ord_intersection/4 (Nicos Angelopoulos).</li>
 	<li>NEW: file_search_path/2 (Nicos Angelopoulos).</li>
diff --git a/pl/consult.yap b/pl/consult.yap
index 72ddca96e..24fbaf681 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -187,8 +187,8 @@ reconsult(Fs) :-
 	;
 	  '$set_value'('$verbose',off)
 	),
-	'$find_in_path'(X,Y,reconsult(X)),
-	( '$open'(Y,'$csult',Stream,0), !,
+	( '$find_in_path'(X,Y,reconsult(X)),
+	  '$open'(Y,'$csult',Stream,0) ->
 		'$record_loaded'(Stream),
 		( '$access_yap_flags'(15, 0) -> true ; '$skip_unix_comments'(Stream) ),
 		'$reconsult'(X,Stream), '$close'(Stream)