Updating code for make and fry changes

[factor.git] / extra / webapps / planet / planet.factor

diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor
index 10e706598e08c2be776f9edcc4f014b38cee7587..721529de27b35224a5cf310a1ec6f35a902918b3 100755 (executable)
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@@ -96,7 +96,7 @@ posting "POSTINGS"
 
 : fetch-blogroll ( blogroll -- entries )
     [ [ feed-url>> fetch-feed ] parallel-map ] [ [ name>> ] map ] bi
-    [ '[ , <posting> ] map ] 2map concat ;
+    [ '[ _ <posting> ] map ] 2map concat ;
 
 : sort-entries ( entries -- entries' )
     [ [ date>> ] compare invert-comparison ] sort ;
@@ -201,4 +201,4 @@ posting "POSTINGS"
         { planet "planet-common" } >>template ;
 
 : start-update-task ( db params -- )
-    '[ , , [ update-cached-postings ] with-db ] 10 minutes every drop ;
+    '[ _ _ [ update-cached-postings ] with-db ] 10 minutes every drop ;