From 39fd41b69ac9d7f523a6a95fa66cb97b1095cf8b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 12 Oct 2013 10:29:34 -0700 Subject: [PATCH] http.client: use new http-post* word. --- basis/furnace/recaptcha/recaptcha.factor | 2 +- extra/google/charts/charts.factor | 2 +- extra/google/translate/translate.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/furnace/recaptcha/recaptcha.factor b/basis/furnace/recaptcha/recaptcha.factor index 3ae20f14bb..2e9af622d0 100644 --- a/basis/furnace/recaptcha/recaptcha.factor +++ b/basis/furnace/recaptcha/recaptcha.factor @@ -59,7 +59,7 @@ M: recaptcha call-responder* { "privatekey" private-key } { "remoteip" remote-ip } } URL" http://api-verify.recaptcha.net/verify" - http-post nip parse-recaptcha-response ; + http-post* parse-recaptcha-response ; : validate-recaptcha-params ( -- ) { diff --git a/extra/google/charts/charts.factor b/extra/google/charts/charts.factor index d97a97bceb..39a615043e 100644 --- a/extra/google/charts/charts.factor +++ b/extra/google/charts/charts.factor @@ -100,6 +100,6 @@ PRIVATE> : chart. ( chart -- ) chart>url present dup length 2000 < [ http-image. ] [ - "?" split1 swap http-post nip + "?" split1 swap http-post* "png" (image-class) load-image* image. ] if ; diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor index c08ed8979a..26fbbbbb57 100644 --- a/extra/google/translate/translate.factor +++ b/extra/google/translate/translate.factor @@ -16,7 +16,7 @@ CONSTANT: maximum-translation-size 5120 ] { } make ; : assoc>query-response ( assoc -- response ) - google-translate-url http-post nip ; + google-translate-url http-post* ; ERROR: response-error response error ;