fix '$abolish_all'
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@81 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
90c92979c6
commit
12db2be4aa
@ -342,7 +342,7 @@ abolish(X) :-
|
||||
'$abolish_all' :-
|
||||
current_predicate(_,P),
|
||||
functor(P, Na, Ar),
|
||||
'$new_abolish'(Na, Ar),
|
||||
'$new_abolish'(Na/Ar),
|
||||
fail.
|
||||
'$abolish_all'.
|
||||
|
||||
|
Reference in New Issue
Block a user