http.client: remove http-get* and its friends, change http-request* and with-http...

[factor.git] / extra / reddit / reddit.factor

diff --git a/extra/reddit/reddit.factor b/extra/reddit/reddit.factor
index 40cc4ad95a5155ce183ed3db9b6ac29f646a51a1..c6618af1b30ec2d382574efcfbb04b67424ce146 100644 (file)
--- a/extra/reddit/reddit.factor
+++ b/extra/reddit/reddit.factor
@@ -44,7 +44,7 @@ public_description subscribers title url ;
 TUPLE: page url data before after ;
 
 : json-page ( url -- page )
-    >url dup http-get* json> "data" of {
+    >url dup http-get nip json> "data" of {
         [ "children" of [ parse-data ] map ]
         [ "before" of [ f ] when-json-null ]
         [ "after" of [ f ] when-json-null ]
@@ -55,7 +55,7 @@ TUPLE: page url data before after ;
 
 : get-user-info ( username -- user )
     "http://api.reddit.com/user/%s/about" sprintf
-    http-get* json> parse-data ;
+    http-get nip json> parse-data ;
 
 : get-url-info ( url -- page )
     "http://api.reddit.com/api/info?url=%s" sprintf json-page ;