From 91d385147ef7ca477c0ab963031efc617a3467e8 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 1 Nov 2004 15:54:01 +0000
Subject: [PATCH] ensure_loaded would never again reconsult a file, even if the
 file had been changed meanwhile.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1170 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/consult.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/consult.yap b/pl/consult.yap
index 5e6fefcbf..5130d18f1 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -243,9 +243,9 @@ prolog_load_context(term_position, Position) :-
 '$loaded_file'(F,M,F1) :-
 	recorded('$loaded','$loaded'(F1,M,Age),R),
 	'$same_file'(F1,F), !,
-	'$loaded_file_age'(F, R).
+	'$loaded_file_age'(F, R, Age).
 
-'$loaded_file_age'(F, R) :-
+'$loaded_file_age'(F, R, Age) :-
         '$file_age'(F,CurrentAge),
          ((CurrentAge = Age ; Age = -1)  -> true; erase(R), fail).