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

fix '$abolish_all'

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@81 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-11 20:23:57 +00:00
parent 90c92979c6
commit 12db2be4aa
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

@ -342,7 +342,7 @@ abolish(X) :-
'$abolish_all' :- '$abolish_all' :-
current_predicate(_,P), current_predicate(_,P),
functor(P, Na, Ar), functor(P, Na, Ar),
'$new_abolish'(Na, Ar), '$new_abolish'(Na/Ar),
fail. fail.
'$abolish_all'. '$abolish_all'.