steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

xml-rpc: Use ERROR:

db4
Doug Coleman 2013-03-23 23:10:30 -07:00
parent c74d19512e
commit c9e9a5985a
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/xml-rpc/xml-rpc.factor
View File

@ -102,10 +102,7 @@ M: rpc-fault send-rpc
! * Recieving RPC requests ! * Recieving RPC requests
! this needs to have much better error checking ! this needs to have much better error checking
TUPLE: server-error tag message ; ERROR: server-error tag message ;
: server-error ( tag message -- * )
\ server-error boa throw ;
M: server-error error. M: server-error error.
"Error in XML supplied to server" print "Error in XML supplied to server" print