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

fix if/3 compilation (obs from Brian De Vries)

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-10-18 12:50:02 +01:00
parent 7207c18e65
commit 7e4384cf5c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/arith.yap
View File

@ -70,8 +70,9 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
'$do_c_built_in'(Goal,M,IGoal), '$do_c_built_in'(Goal,M,IGoal),
'$clean_cuts'(IGoal, NGoal). '$clean_cuts'(IGoal, NGoal).
'$do_c_built_in'(if(G,A,B), M, (yap_hacks:current_choicepoint(DCP),NG,yap_hacks:cut_at(DCP),NA; NB)) :- !, '$do_c_built_in'(if(G,A,B), M, (yap_hacks:current_choicepoint(DCP),NG,yap_hacks:cut_at(DCP),NA; NB)) :- !,
'$do_c_built_in'(A,M,NA0), '$do_c_built_in'(G,M,NG0),
'$clean_cuts'(NA0, NA), '$clean_cuts'(NG0, NG),
'$do_c_built_in'(A,M,NA),
'$do_c_built_in'(B,M,NB). '$do_c_built_in'(B,M,NB).
'$do_c_built_in'((G*->A), M, (NG,NA)) :- !, '$do_c_built_in'((G*->A), M, (NG,NA)) :- !,
'$do_c_built_in'(G,M,NG0), '$do_c_built_in'(G,M,NG0),