From 3fa1f856f667f22754c920fd992ca67b8e036ee2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@cracs-gpu.dcc.fc.up.pt>
Date: Wed, 16 Oct 2013 11:15:26 +0100
Subject: [PATCH] fix alaises in cuda

---
 packages/cuda/cuda.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/cuda/cuda.yap b/packages/cuda/cuda.yap
index 4649fc5d7..aed185db7 100644
--- a/packages/cuda/cuda.yap
+++ b/packages/cuda/cuda.yap
@@ -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.