fix interface

packages/cuda/test.yap

@@ -6,7 +6,8 @@
 main :-
 	cuda_extensional(db/2, _X),
 	cuda_rule((a(X, Y) :- db(Y, Z), db(X, Z), db(1, Z) ), Q),
-	cuda_eval(Q, _).
+	cuda_eval(Q, L), writeln(here),
+	writeln(L).
 
 db(1,a).
 db(2,a).