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

fix abolish/2.

Browse Source 
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
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/preds.yap
View File

@ -345,6 +345,8 @@ retractall(V) :- !,
'$recordedp'(M:T,_,_), fail. '$recordedp'(M:T,_,_), fail.
'$erase_all_clauses_for_dynamic'(_,_). '$erase_all_clauses_for_dynamic'(_,_).
abolish(Mod:N,A) :- !,
'$abolish'(N,A,Mod).
abolish(N,A) :- abolish(N,A) :-
'$current_module'(Mod), '$current_module'(Mod),
'$abolish'(N,A,Mod). '$abolish'(N,A,Mod).