if/3 didn't work.
This commit is contained in:
parent
a8f0beb64b
commit
51b47d14da
17
pl/boot.yap
17
pl/boot.yap
@ -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' :-
|
||||||
|
Reference in New Issue
Block a user