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

abolishall should succeed if there are no clauses.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@209 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-02 16:46:50 +00:00
parent 80e5fc7285
commit 467fbe977d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/preds.yap
View File

@ -331,8 +331,7 @@ retractall(V) :- !,
'$retractall'(T,M) :- '$retractall'(T,M) :-
'$undefined'(T,M), '$undefined'(T,M),
functor(T,Na,Ar), functor(T,Na,Ar),
'$dynamic'(Na/Ar,M), !, '$dynamic'(Na/Ar,M), !.
fail.
'$retractall'(T,M) :- '$retractall'(T,M) :-
\+ '$is_dynamic'(T,M), !, \+ '$is_dynamic'(T,M), !,
functor(T,Na,Ar), functor(T,Na,Ar),