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

fix missing cut in abolish

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@302 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-16 20:31:00 +00:00
parent a203cec0f5
commit 6d1015afcf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/preds.yap
View File

@ -442,7 +442,7 @@ abolish(X) :-
'$old_abolish'(N,M). '$old_abolish'(N,M).
'$old_abolish'([], _) :- !. '$old_abolish'([], _) :- !.
'$old_abolish'([H|T], M) :- !, '$old_abolish'(H, M), '$old_abolish'(T, M). '$old_abolish'([H|T], M) :- !, '$old_abolish'(H, M), '$old_abolish'(T, M).
'$old_abolish'(N/A, M) :- '$old_abolish'(N/A, M) :- !,
'$abolish'(N, A, M). '$abolish'(N, A, M).
'$old_abolish'(T, M) :- '$old_abolish'(T, M) :-
throw(error(type_error(predicate_indicator,T),abolish(M:T))). throw(error(type_error(predicate_indicator,T),abolish(M:T))).