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.
|
||||
%
|
||||
'$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),
|
||||
yap_hacks:current_choice_point(NCP2))
|
||||
,
|
||||
(NCP is NCP2-NCP1)
|
||||
,
|
||||
(copy_term_nat(V, NV), LGs = [], NCP = 0)
|
||||
yap_hacks:current_choice_point(NCP2),
|
||||
'$clean_ifcp'(CP),
|
||||
NCP is NCP2-NCP1
|
||||
;
|
||||
copy_term_nat(V, NV),
|
||||
LGs = [],
|
||||
NCP = 0
|
||||
).
|
||||
|
||||
'$out_neg_answer' :-
|
||||
|
Reference in New Issue
Block a user