zeromq: better zeromq-error

diff --git a/extra/zeromq/zeromq.factor b/extra/zeromq/zeromq.factor
index f824fd8a97073505952947dcf824887c65dca76c..0dd3add6e8cce0343af9aeedbee0770177580c82 100644 (file)
--- a/extra/zeromq/zeromq.factor
+++ b/extra/zeromq/zeromq.factor
@@ -6,10 +6,10 @@ memoize sequences zeromq.ffi ;
 
 IN: zeromq
 
-TUPLE: zmq-error n string ;
+ERROR: zmq-error n string ;
 
 : throw-zmq-error ( -- )
-    zmq_errno dup zmq_strerror zmq-error boa throw ; inline
+    zmq_errno dup zmq_strerror zmq-error ; inline
 
 : check-zmq-error ( retval -- )
     [ throw-zmq-error ] unless-zero ; inline