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

get rid of nasty choicepoint in eraseall.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@766 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-02-12 13:18:01 +00:00
parent ce47ad0085
commit 96a8d96054
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/preds.yap
View File

@ -348,9 +348,9 @@ retract(C,R) :-
functor(C, Na, Ar). functor(C, Na, Ar).
retractall(M:V) :- retractall(M:V) :- !,
'$retractall'(V,M). '$retractall'(V,M).
retractall(V) :- !, retractall(V) :-
'$current_module'(M), '$current_module'(M),
'$retractall'(V,M). '$retractall'(V,M).