From eca98a3b8fbaed7dea467fc7781bcdb448770c08 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Fri, 23 Nov 2007 23:54:25 -0500 Subject: [PATCH] Deleting dead code in extra/rss --- extra/rss/rss.factor | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/extra/rss/rss.factor b/extra/rss/rss.factor index b0fdc65adb..0d399e620f 100644 --- a/extra/rss/rss.factor +++ b/extra/rss/rss.factor @@ -3,22 +3,14 @@ IN: rss ! USING: kernel http-client xml xml-utils xml-data errors io strings ! sequences xml-writer parser-combinators lazy-lists entities ; -USING: xml.utilities kernel promises parser-combinators assocs - parser-combinators.replace strings sequences xml.data xml.writer +USING: xml.utilities kernel assocs + strings sequences xml.data xml.writer io.streams.string combinators xml xml.entities io.files io http.client ; : ?children>string ( tag/f -- string/f ) [ children>string ] [ f ] if* ; -LAZY: '&' ( -- parser ) - "&" token - [ blank? ] satisfy &> - [ "&" swap add ] <@ ; - -: &>& ( string -- string ) - '&' replace ; - TUPLE: feed title link entries ; C: feed