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

if/3 didn't work.

This commit is contained in:
Costa Vitor 2012-08-07 18:32:45 -05:00
parent a8f0beb64b
commit 51b47d14da
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pl/boot.yap
View File

@ -518,14 +518,17 @@ true :- true.
% *-> at this point would require compiler support, which does not exist. % *-> at this point would require compiler support, which does not exist.
% %
'$delayed_goals'(G, V, NV, LGs, NCP) :- '$delayed_goals'(G, V, NV, LGs, NCP) :-
if( (
(yap_hacks:current_choice_point(NCP1), CP is '$last_choice_pt',
yap_hacks:current_choice_point(NCP1),
'$attributes':delayed_goals(G, V, NV, LGs), '$attributes':delayed_goals(G, V, NV, LGs),
yap_hacks:current_choice_point(NCP2)) yap_hacks:current_choice_point(NCP2),
, '$clean_ifcp'(CP),
(NCP is NCP2-NCP1) NCP is NCP2-NCP1
, ;
(copy_term_nat(V, NV), LGs = [], NCP = 0) copy_term_nat(V, NV),
LGs = [],
NCP = 0
). ).
'$out_neg_answer' :- '$out_neg_answer' :-