Deleting dead code in extra/rss

release
Daniel Ehrenberg 2007-11-23 23:54:25 -05:00
parent b5b0a5dae1
commit eca98a3b8f
1 changed files with 2 additions and 10 deletions

View File

@ -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 &>
[ "&amp;" swap add ] <@ ;
: &>&amp; ( string -- string )
'&amp;' replace ;
TUPLE: feed title link entries ;
C: <feed> feed