Move <ref>, deref and little-endian? from alien.c-types to alien.data, remove <c...

[factor.git] / extra / cuda / cuda.factor

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 566622eb029e0dee065983dcbbd0c2b45e7c800c..c86fbacc69f0349935dd2a2cd969be5a193fc9f5 100644 (file)
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -16,7 +16,7 @@ TUPLE: cuda-error code ;
     dup CUDA_SUCCESS = [ drop ] [ \ cuda-error boa throw ] if ;
 
 : cuda-version ( -- n )
-    c:int <c-object> [ cuDriverGetVersion cuda-error ] keep c:int c:deref ;
+    { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;
 
 : init-cuda ( -- )
     0 cuInit cuda-error ; inline