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

fix fix

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-10-16 11:24:23 +01:00
parent 3fa1f856f6
commit b50305a100
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/cuda/cuda.yap
View File

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