From 53730a28c2118bc17fa4dfbd08d995d43251e6af Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-24.local>
Date: Tue, 4 Dec 2007 21:19:11 -0500
Subject: [PATCH 1/2] Planet Factor RSS changes
---
extra/webapps/planet/planet.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor
index 31ef4222ba..9fdafe033b 100644
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@@ -11,7 +11,7 @@ TUPLE: posting author title date link body ;
: fetch-feed ( pair -- feed )
second
dup "Fetching " diagnostic
- dup news-get feed-entries
+ dup download-feed feed-entries
swap "Done fetching " diagnostic ;
: fetch-blogroll ( blogroll -- entries )
@@ -130,9 +130,9 @@ SYMBOL: last-update
[ feed-entries ] map concat sort-entries ;
: planet-feed ( -- feed )
- default-blogroll get [ second news-get ] map merge-feeds
+ default-blogroll get [ second download-feed ] map merge-feeds
>r "[ planet-factor ]" "http://planet.factorcode.org" r> <entry>
- generate-atom ;
+ feed>xml ;
: feed.xml planet-feed ;
From 9b69278b908ac4c5c230b642edaf731685a957cd Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-24.local>
Date: Tue, 4 Dec 2007 21:31:11 -0500
Subject: [PATCH 2/2] Fixing stack effect in extra/rss
---
extra/rss/rss.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/rss/rss.factor b/extra/rss/rss.factor
index 8a9be3f9f6..da810ee377 100644
--- a/extra/rss/rss.factor
+++ b/extra/rss/rss.factor
@@ -99,5 +99,5 @@ C: <entry> entry
feed-entries [ entry, ] each
] make-xml* ;
-: write-feed ( feed -- xml )
+: write-feed ( feed -- )
feed>xml write-xml ;