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

undo silly change to meta-calls

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1182 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-11-22 06:14:48 +00:00
parent fda0b76f18
commit 1c681ebd9b
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/boot.yap
View File

@ -676,9 +676,9 @@ incore(G) :- '$execute'(G).
'$call'(B,CP,G0,M) '$call'(B,CP,G0,M)
). ).
'$call'(\+ X, CP, G0, M) :- !, '$call'(\+ X, CP, G0, M) :- !,
\+ '$call'(X, CP, G0, M). \+ '$execute'(X).
'$call'(not(X), CP, G0, M) :- !, '$call'(not(X), CP, G0, M) :- !,
\+ '$call'(X, CP, G0, M). \+ '$execute'(X).
'$call'(!, CP, _,_) :- !, '$call'(!, CP, _,_) :- !,
'$$cut_by'(CP). '$$cut_by'(CP).
'$call'([A|B], _, _, M) :- !, '$call'([A|B], _, _, M) :- !,