cuda: move init-cuda from cuda.utils

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 93de4174e9917383056edb959990526e9c019f1c..a9b67446d8755db89fca819f49a1ba1dd75763d1 100644 (file)
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -10,6 +10,9 @@ sequences words cuda.libraries ;
 QUALIFIED-WITH: alien.c-types c
 IN: cuda
 
+: init-cuda ( -- )
+    0 cuInit cuda-error ; inline
+
 TUPLE: function-launcher
 dim-grid dim-block shared-size stream ;
 

diff --git a/extra/cuda/utils/utils.factor b/extra/cuda/utils/utils.factor
index a8e6210970bbecddddbcb63eb72dfc563cce776d..87abdb550849c62c3dc74c7a19a586f8bb8c01e5 100644 (file)
--- a/extra/cuda/utils/utils.factor
+++ b/extra/cuda/utils/utils.factor
@@ -17,9 +17,6 @@ ERROR: throw-cuda-error n ;
 : cuda-error ( n -- )
     dup CUDA_SUCCESS = [ drop ] [ throw-cuda-error ] if ;
 
-: init-cuda ( -- )
-    0 cuInit cuda-error ; inline
-
 : cuda-version ( -- n )
     int <c-object> [ cuDriverGetVersion cuda-error ] keep *int ;