From 5b4f355ee053525d4b08e818fca06f9a0ac05f9e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Fri, 7 Jun 2013 09:26:50 -0500 Subject: [PATCH] avoid creating new index in retractall --- pl/preds.yap | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pl/preds.yap b/pl/preds.yap index 754c31e10..d4642a1b4 100644 --- a/pl/preds.yap +++ b/pl/preds.yap @@ -489,6 +489,9 @@ retractall(V) :- '$do_error'(permission_error(modify,static_procedure,Na/Ar),retractall(T)) ). +'$retractall_lu'(T,M) :- + '$free_arguments'(T), !, + ( '$purge_clauses'(T,M), fail ; true ). '$retractall_lu'(T,M) :- '$log_update_clause'(T,M,_,R), erase(R),