cuda: use ERROR:.

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index 04c2f304c8f915efb78af9af1d77f00d5987737a..d549e107ae827e194b7df0a3f58d1401e8ff7bbd 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-state code ;
+ERROR: cuda-error-state code ;
 
 : cuda-error ( code -- )
-    dup CUDA_SUCCESS = [ drop ] [ \ cuda-error-state boa throw ] if ;
+    dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;
 
 : cuda-version ( -- n )
     { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;