cuda: Rename cuda-error.

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index c86fbacc69f0349935dd2a2cd969be5a193fc9f5..04c2f304c8f915efb78af9af1d77f00d5987737a 100644 (file)
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -10,10 +10,10 @@ sequences words ;
 QUALIFIED-WITH: alien.c-types c
 IN: cuda
 
-TUPLE: cuda-error code ;
+TUPLE: cuda-error-state code ;
 
 : cuda-error ( code -- )
-    dup CUDA_SUCCESS = [ drop ] [ \ cuda-error boa throw ] if ;
+    dup CUDA_SUCCESS = [ drop ] [ \ cuda-error-state boa throw ] if ;
 
 : cuda-version ( -- n )
     { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;