xml-rpc: Use ERROR:

diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 18c1a79db943e0ca4cc7e7ce7e00d05a9f48fb10..36bc349e11fe5b6902d6cbb6caf19fe032732f16 100644 (file)
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -102,10 +102,7 @@ M: rpc-fault send-rpc
 ! * Recieving RPC requests
 ! this needs to have much better error checking
 
-TUPLE: server-error tag message ;
-
-: server-error ( tag message -- * )
-    \ server-error boa throw ;
+ERROR: server-error tag message ;
 
 M: server-error error.
     "Error in XML supplied to server" print