diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid creating new index in retractall

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-06-07 09:26:50 -05:00
parent 5303f2f479
commit 5b4f355ee0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/preds.yap
View File

@ -489,6 +489,9 @@ retractall(V) :-
'$do_error'(permission_error(modify,static_procedure,Na/Ar),retractall(T)) '$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) :- '$retractall_lu'(T,M) :-
'$log_update_clause'(T,M,_,R), '$log_update_clause'(T,M,_,R),
erase(R), erase(R),