change ERROR: words from throw-foo back to foo.

[factor.git] / extra / google / translate / translate.factor

diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor
index 2738801ef2892f79033cb295189a78a1f5679856..7a7d19513711198e760ffae095f2430d2dd7c87a 100644 (file)
--- a/extra/google/translate/translate.factor
+++ b/extra/google/translate/translate.factor
@@ -26,8 +26,8 @@ TUPLE: response-error response error ;
 : check-response ( response -- response )
     "responseStatus" over at {
         { 200 [ ] }
-        { 400 [ throw-response-error ] }
-        [ drop throw-response-error ]
+        { 400 [ response-error ] }
+        [ drop response-error ]
     } case ;
 
 : query-response>text ( response -- text )