http.client: using http-request*.

diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 36bc349e11fe5b6902d6cbb6caf19fe032732f16..3f279dec149abbf39b416d8f8c9cb0f79aa81aeb 100644 (file)
--- 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 <rpc-method> ] dip post-rpc ;

diff --git a/extra/bitcoin/client/client.factor b/extra/bitcoin/client/client.factor
index 88926b0912d9688375816b494c28b324079149d7..f6517ce73a136c4b84edbaa89873add34b787a7d 100644 (file)
--- a/extra/bitcoin/client/client.factor
+++ b/extra/bitcoin/client/client.factor
@@ -64,7 +64,7 @@ IN: bitcoin.client
     payload bitcoin-url <post-request> 
     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 e8afb9c7c26f3b18be5b8afc517ec1b18a75fc69..ecc59fbc8126043f1d0989c022839d3852f16f86 100644 (file)
--- a/extra/twitter/twitter.factor
+++ b/extra/twitter/twitter.factor
@@ -60,8 +60,7 @@ MACRO: keys-boa ( keys class -- )
     [ <oauth-request-params> 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>