From adc3ee4c81bed4f117512d323fbce7bc3e568d82 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 12 Oct 2013 10:57:08 -0700 Subject: [PATCH] http.client: using http-request*. --- basis/xml-rpc/xml-rpc.factor | 2 +- extra/bitcoin/client/client.factor | 2 +- extra/twitter/twitter.factor | 3 +-- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor index 36bc349e11..3f279dec14 100644 --- a/basis/xml-rpc/xml-rpc.factor +++ b/basis/xml-rpc/xml-rpc.factor @@ -183,7 +183,7 @@ PRIVATE> : post-rpc ( rpc url -- rpc' ) ! This needs to do something in the event of an error - rpc-post-request http-request nip string>xml receive-rpc ; + rpc-post-request http-request* string>xml receive-rpc ; : invoke-method ( params method url -- response ) [ swap ] dip post-rpc ; diff --git a/extra/bitcoin/client/client.factor b/extra/bitcoin/client/client.factor index 88926b0912..f6517ce73a 100644 --- a/extra/bitcoin/client/client.factor +++ b/extra/bitcoin/client/client.factor @@ -64,7 +64,7 @@ IN: bitcoin.client payload bitcoin-url basic-auth "Authorization" set-header dup post-data>> data>> length "Content-Length" set-header - http-request nip >string json> "result" of ; + http-request* >string json> "result" of ; PRIVATE> diff --git a/extra/twitter/twitter.factor b/extra/twitter/twitter.factor index e8afb9c7c2..ecc59fbc81 100644 --- a/extra/twitter/twitter.factor +++ b/extra/twitter/twitter.factor @@ -60,8 +60,7 @@ MACRO: keys-boa ( keys class -- ) [ set-oauth ] with-twitter-oauth ; : twitter-request ( request -- data ) - set-request-twitter-auth - http-request nip ; inline + set-request-twitter-auth http-request* ; inline PRIVATE>