xml-rpc: Use ERROR:

2013-03-23 23:10:30 -07:00 · 2013-03-23 23:10:30 -07:00 · a801025e00
parent fe408ed83e
commit a801025e00
1 changed files with 1 additions and 4 deletions
--- 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