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

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index e02bc08a43380ebb98f2e4e93c9d774908aa759f..b60331d8cb3b6ea6d4a01258cd0bfe60da2a1d5e 100755 (executable)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -86,22 +86,22 @@ UNION: abi stdcall thiscall fastcall cdecl mingw ;
 ERROR: alien-callback-error ;
 
 : alien-callback ( return parameters abi quot -- alien )
-    throw-alien-callback-error ;
+    alien-callback-error ;
 
 ERROR: alien-indirect-error ;
 
 : alien-indirect ( args... funcptr return parameters abi -- return... )
-    throw-alien-indirect-error ;
+    alien-indirect-error ;
 
 ERROR: alien-invoke-error library symbol ;
 
 : alien-invoke ( args... return library function parameters -- return... )
-    2over throw-alien-invoke-error ;
+    2over alien-invoke-error ;
 
 ERROR: alien-assembly-error code ;
 
 : alien-assembly ( args... return parameters abi quot -- return... )
-    dup throw-alien-assembly-error ;
+    dup alien-assembly-error ;
 
 <PRIVATE