fix abolish/2.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@418 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
2913aeb54c
commit
4a33e9066c
@ -345,6 +345,8 @@ retractall(V) :- !,
|
||||
'$recordedp'(M:T,_,_), fail.
|
||||
'$erase_all_clauses_for_dynamic'(_,_).
|
||||
|
||||
abolish(Mod:N,A) :- !,
|
||||
'$abolish'(N,A,Mod).
|
||||
abolish(N,A) :-
|
||||
'$current_module'(Mod),
|
||||
'$abolish'(N,A,Mod).
|
||||
|
Reference in New Issue
Block a user