change ERROR: words from throw-foo back to foo.

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

diff --git a/extra/cuda/libraries/libraries.factor b/extra/cuda/libraries/libraries.factor
index fdf0799aa68e4eae6f37c95388ff1b6160ede88f..f899d4430d303af4a3b6e68e7cd52a78888dd1c1 100644 (file)
--- a/extra/cuda/libraries/libraries.factor
+++ b/extra/cuda/libraries/libraries.factor
@@ -86,10 +86,10 @@ PRIVATE>
 ERROR: no-cuda-library name ;
 
 : lookup-cuda-library ( name -- cuda-library )
-    cuda-libraries get ?at [ throw-no-cuda-library ] unless ;
+    cuda-libraries get ?at [ no-cuda-library ] unless ;
 
 : remove-cuda-library ( name -- library )
-    cuda-libraries get ?delete-at [ throw-no-cuda-library ] unless ;
+    cuda-libraries get ?delete-at [ no-cuda-library ] unless ;
 
 : unload-cuda-library ( name -- )
     remove-cuda-library handle>> unload-module ;
@@ -189,7 +189,7 @@ TUPLE: cuda-library name abi path handle ;
 ERROR: bad-cuda-abi abi ;
 
 : check-cuda-abi ( abi -- abi )
-    dup cuda-abi? [ throw-bad-cuda-abi ] unless ; inline
+    dup cuda-abi? [ bad-cuda-abi ] unless ; inline
 
 : <cuda-library> ( name abi path -- obj )
     \ cuda-library new