]> gitweb.factorcode.org Git - factor.git/commitdiff
google.translate: fix the conflict in a naive way.
authorDoug Coleman <doug.coleman@gmail.com>
Thu, 13 Aug 2015 03:36:08 +0000 (20:36 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Thu, 13 Aug 2015 03:38:08 +0000 (20:38 -0700)
extra/google/translate/translate.factor

index a7a49d52ca853b42a5fd662b0cd9d1816c459c53..2738801ef2892f79033cb295189a78a1f5679856 100644 (file)
@@ -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 {