Paste: post-rpc fix

Author: blei
Mode: factor
Date: Sun, 13 Sep 2009 18:58:26
Plain Text |
: post-rpc ( rpc url -- rpc )
    ! This needs to do something in the event of an error
    [ send-rpc xml>string utf8 encode "text/xml" <post-data> swap >>data ] dip
    "POST" <client-request> swap >>post-data http-request nip string>xml receive-rpc ;

New Annotation

Summary:
Author:
Mode:
Body: