http.client: use new http-post* word.

db4
John Benediktsson 2013-10-12 10:29:34 -07:00
parent 435f54cf59
commit 39fd41b69a
3 changed files with 3 additions and 3 deletions

View File

@ -59,7 +59,7 @@ M: recaptcha call-responder*
{ "privatekey" private-key } { "privatekey" private-key }
{ "remoteip" remote-ip } { "remoteip" remote-ip }
} URL" http://api-verify.recaptcha.net/verify" } URL" http://api-verify.recaptcha.net/verify"
http-post nip parse-recaptcha-response ; http-post* parse-recaptcha-response ;
: validate-recaptcha-params ( -- ) : validate-recaptcha-params ( -- )
{ {

View File

@ -100,6 +100,6 @@ PRIVATE>
: chart. ( chart -- ) : chart. ( chart -- )
chart>url present dup length 2000 < [ http-image. ] [ chart>url present dup length 2000 < [ http-image. ] [
"?" split1 swap http-post nip "?" split1 swap http-post*
"png" (image-class) load-image* image. "png" (image-class) load-image* image.
] if ; ] if ;

View File

@ -16,7 +16,7 @@ CONSTANT: maximum-translation-size 5120
] { } make ; ] { } make ;
: assoc>query-response ( assoc -- response ) : assoc>query-response ( assoc -- response )
google-translate-url http-post nip ; google-translate-url http-post* ;
ERROR: response-error response error ; ERROR: response-error response error ;