google.search: these moved to classes.tuple.

db4
John Benediktsson 2013-01-04 09:12:41 -08:00
parent 10a2288ed4
commit 4e518d642d
1 changed files with 0 additions and 6 deletions

View File

@ -16,12 +16,6 @@ IN: google.search
"8" "rsz" set-query-param
"0" "start" set-query-param ;
: set-slots ( assoc obj -- )
'[ swap _ set-slot-named ] assoc-each ;
: from-slots ( assoc class -- obj )
new [ set-slots ] keep ;
TUPLE: search-result cacheUrl GsearchResultClass visibleUrl
title content unescapedUrl url titleNoFormatting fileFormat ;