assocs: Add of and ?of. Change all the things at once! Fixes #701.

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

diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor
index c5354804f120edbaf5b8eaca680dde50d619c23f..ed559d0c9451c3eef4e23b2c59f4e0646e1a54da 100644 (file)
--- a/extra/google/translate/translate.factor
+++ b/extra/google/translate/translate.factor
@@ -31,8 +31,8 @@ ERROR: response-error response error ;
 
 : query-response>text ( response -- text )
     json> check-response
-    "responseData" swap at
-    "translatedText" swap at ;
+    "responseData" of
+    "translatedText" of ;
 
 : (translate) ( text from to -- text' )
     parameters>assoc