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

fix bad change in utils.yap

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@787 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-02-21 19:27:40 +00:00
parent 773f2fb56e
commit 540d9639cb
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/utils.yap
View File

@ -372,7 +372,7 @@ system_predicate(P) :-
'$pred_exists'(T,M). '$pred_exists'(T,M).
'$current_predicate3'(M,A/Arity) :- !, '$current_predicate3'(M,A/Arity) :- !,
'$current_predicate_for_atom'(A,M,Arity), '$current_predicate'(M,A,Arity),
functor(T,A,Arity), functor(T,A,Arity),
'$pred_exists'(T,M). '$pred_exists'(T,M).
'$current_predicate3'(M,BadSpec) :- % only for the predicate '$current_predicate3'(M,BadSpec) :- % only for the predicate