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

[factor.git] / extra / zeromq / zeromq.factor

diff --git a/extra/zeromq/zeromq.factor b/extra/zeromq/zeromq.factor
index b92e95f85adc6c1b7444eb2b660a635dd1a664d2..04c2299d09449768d5dd183547b0afc8046de268 100644 (file)
--- a/extra/zeromq/zeromq.factor
+++ b/extra/zeromq/zeromq.factor
@@ -13,7 +13,7 @@ TUPLE: zmq-error n string ;
     zmq_errno dup zmq_strerror zmq-error boa throw ; inline
 
 : check-zmq-error ( retval -- )
-    [ throw-zmq-error ] unless-zero ; inline
+    [ zmq-error ] unless-zero ; inline
 
 : zmq-version ( -- version )
     { int int int } [ zmq_version ] with-out-parameters 3array ;
@@ -62,7 +62,7 @@ TUPLE: zmq-socket underlying ;
 
 : <zmq-socket> ( context type -- socket )
     [ underlying>> ] dip zmq_socket
-    dup [ throw-zmq-error ] unless
+    dup [ zmq-error ] unless
     zmq-socket boa ;
 
 M: zmq-socket dispose
@@ -90,11 +90,11 @@ M: zmq-socket zmq-setopt
 
 : zmq-sendmsg ( socket msg flags -- )
     [ [ underlying>> ] bi@ ] dip zmq_sendmsg
-    0 < [ throw-zmq-error ] when ;
+    0 < [ zmq-error ] when ;
 
 : zmq-recvmsg ( socket msg flags -- )
     [ [ underlying>> ] bi@ ] dip zmq_recvmsg
-    0 < [ throw-zmq-error ] when ;
+    0 < [ zmq-error ] when ;
 
 : zmq-send ( socket byte-array flags -- )
     [ byte-array>zmq-message ] dip