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

fix call(\+ !).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-02-26 10:03:32 +00:00
parent daa55352ec
commit 61eb299ba5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pl/boot.yap
View File

@ -879,6 +879,7 @@ not(G) :- \+ '$execute'(G).
'$call'(B,CP,G0,M) '$call'(B,CP,G0,M)
). ).
'$call'(\+ X, _CP, _G0, M) :- !, '$call'(\+ X, _CP, _G0, M) :- !,
yap_hacks:current_choicepoint(CP),
\+ '$call'(X,CP,G0,M). \+ '$call'(X,CP,G0,M).
'$call'(not(X), _CP, _G0, M) :- !, '$call'(not(X), _CP, _G0, M) :- !,
\+ '$call'(X,CP,G0,M). \+ '$call'(X,CP,G0,M).