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

new version of sub_atom

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@931 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-11-18 19:23:10 +00:00
parent fae22bbf6b
commit 9851882dc7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/preds.yap
View File

@ -388,7 +388,8 @@ retract(C) :-
'$retract2'(H,M,B) :- '$retract2'(H,M,B) :-
'$is_log_updatable'(H, M), !, '$is_log_updatable'(H, M), !,
'$log_update_retract'(H,M,B). '$log_update_clause'(H,M,B,R),
erase(R).
'$retract2'(H,M,B) :- '$retract2'(H,M,B) :-
'$is_dynamic'(H,M), !, '$is_dynamic'(H,M), !,
'$recordedp'(M:H,(H:-B),R), erase(R). '$recordedp'(M:H,(H:-B),R), erase(R).
@ -465,7 +466,8 @@ retractall(V) :-
'$retractall_lu'(T,M) :- '$retractall_lu'(T,M) :-
'$log_update_retract'(T,M,_), '$log_update_clause'(T,M,_,R),
erase(R),
fail. fail.
'$retractall_lu'(_,_). '$retractall_lu'(_,_).