diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor index a7a49d52ca..2738801ef2 100644 --- a/extra/google/translate/translate.factor +++ b/extra/google/translate/translate.factor @@ -18,10 +18,10 @@ CONSTANT: maximum-translation-size 5120 : assoc>query-response ( assoc -- response ) google-translate-url http-post nip ; -ERROR: response-error response error ; +TUPLE: response-error response error ; : throw-response-error ( response -- * ) - "responseDetails" over at response-error ; + [ ] [ "responseDetails" of ] bi response-error boa throw ; : check-response ( response -- response ) "responseStatus" over at {