fix to slow reconsult (Jos Deroo)

2009-09-20 10:03:10 -05:00 · 2009-09-20 10:03:10 -05:00 · 218bc2e423
commit 218bc2e423
parent 56d37591a5
1 changed files with 8 additions and 6 deletions
--- a/pl/boot.yap
+++ b/pl/boot.yap
@ -436,7 +436,9 @@ true :- true.
 	'$do_error'(permission_error(modify, static_procedure, NM:N/Ar), consult).
 '$not_imported'(_, _).

+
 '$check_if_reconsulted'(N,A) :- 
+         once(recorded('$reconsulted',N/A,_)), 
 	 recorded('$reconsulted',X,_), 
 	 ( X = N/A , !; 
 	   X = '$', !, fail;