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

fix alaises in cuda

This commit is contained in:
Vítor Santos Costa 2013-10-16 11:15:26 +01:00
parent 83695cc8c8
commit 3fa1f856f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/cuda/cuda.yap
View File

@ -47,9 +47,9 @@ body_to_list( (B1, B2), LF, L0, N0, NF) :- !,
body_to_list( B1, LF, LI, N0, N1),
body_to_list( B2, LI, L0, N1, NF).
body_to_list( true, L, L, N, N) :- !.
body_to_list( B, [NB|L], L, N0, N) :-
body_to_list( B, NL, L, N0, N) :-
inline( B, NB ), !,
N is N0+1.
body_to_list( NB, NL, L, N0, N)
body_to_list( B, [B|L], L, N0, N) :-
N is N0+1.