assocs.extras: deep-at -> deep-of

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

diff --git a/extra/google/search/search.factor b/extra/google/search/search.factor
index 4518b114808dcfed03cf016b3b8a0adcc2c37809..7f4b0b4463c0e2d1a9a7989c3ad47e30ab27f40f 100644 (file)
--- a/extra/google/search/search.factor
+++ b/extra/google/search/search.factor
@@ -1,16 +1,16 @@
 ! Copyright (C) 2011 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors arrays assocs assocs.extras classes.tuple
-colors.constants combinators formatting fry http.client io
-io.styles json.reader kernel sequences urls wrap.strings ;
+USING: accessors assocs.extras classes.tuple colors combinators
+formatting http.client io io.styles json.reader kernel sequences
+urls wrap.strings ;
 
 IN: google.search
 
 <PRIVATE
 
 : search-url ( query -- url )
-    URL" http://ajax.googleapis.com/ajax/services/search/web"
+    URL" http://ajax.googleapis.com/ajax/services/search/web" clone
         "1.0" "v" set-query-param
         swap "q" set-query-param
         "8" "rsz" set-query-param
@@ -23,7 +23,7 @@ PRIVATE>
 
 : google-search ( query -- results )
     search-url http-get nip json>
-    { "responseData" "results" } deep-at
+    { "responseData" "results" } deep-of
     [ \ search-result from-slots ] map ;
 
 <PRIVATE