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

fix compilation of C/3 (there was a bug with .)

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-10-29 17:58:47 +00:00
parent d4016ce69e
commit 017146ee54
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/arith.yap
View File

@ -78,7 +78,7 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
'$do_c_built_in'(G,M,NG0),
'$clean_cuts'(NG0, NG),
'$do_c_built_in'(A,M,NA).
'$do_c_built_in'('C'(A,B.C), _, (A=[B|C])) :- !.
'$do_c_built_in'('C'(A,B,C), _, (A=[B|C])) :- !.
'$do_c_built_in'(X is Y, _, P) :-
nonvar(Y), % Don't rewrite variables
!,