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

bug in abolish

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@83 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-12 16:15:58 +00:00
parent 8148b93679
commit db42697120
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pl/preds.yap
View File

@ -382,14 +382,21 @@ abolish(X) :-
\+ atom(M), !,
throw(error(type_error(atom,Na), Msg)).
'$old_abolish'(V) :-
'$abolish_all'.
'$old_abolish'(V) :- var(V), !,
'$abolish_all_old'.
'$old_abolish'(M:N) :- !,
'$mod_switch'(M,'$old_abolish'(N)).
'$old_abolish'([]) :- !.
'$old_abolish'([H|T]) :- !, abolish(H), abolish(T).
'$old_abolish'(N/A) :- abolish(N,A).
'$abolish_all_old' :-
current_predicate(_,P),
functor(P, Na, Ar),
'$abolish_old'(Na/Ar),
fail.
'$abolish_all_old'.
'$abolishd'(T) :- '$recordedp'(T,_,R), erase(R), fail.
'$abolishd'(T) :- '$kill_dynamic'(T), fail.