From c1dbce85bb738414c54e7df18f681718dc92cce5 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 15 May 2010 15:28:02 -0700
Subject: [PATCH] cuda: move init-cuda from cuda.utils

---
 extra/cuda/cuda.factor        | 3 +++
 extra/cuda/utils/utils.factor | 3 ---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 93de4174e9..a9b67446d8 100644
--- 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 a8e6210970..87abdb5508 100644
--- 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 ;