http.client: use new http-post* word.
parent
435f54cf59
commit
39fd41b69a
|
@ -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 ( -- )
|
||||||
{
|
{
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue