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:
vsc 2002-03-14 19:11:42 +00:00
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).