From f23ba12c954f639b62a74aacb12c72a1f5db317a Mon Sep 17 00:00:00 2001 From: "chris.double" Date: Thu, 14 Dec 2006 13:35:53 +0000 Subject: [PATCH] apps/rss: fix bitrot and broken stack effects --- apps/rss/rss.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/apps/rss/rss.factor b/apps/rss/rss.factor index 7fdd1d2c1a..e30cd750a0 100644 --- a/apps/rss/rss.factor +++ b/apps/rss/rss.factor @@ -36,7 +36,7 @@ USING: kernel http-client sequences namespaces math errors io ; : (between-tags) ( tag seq -- content ) #! Return a string containing the contents of the XML tag contained in seq. Returns #! false if the tag is not found. - [ find-start-tag [ "no start tag" throw ] unless* ] 2keep [ find-end-tag 2dup and ] keep swap [ subseq ] when ; + [ find-start-tag [ "no start tag" throw ] unless* ] 2keep [ find-end-tag 2dup and ] keep swap [ subseq ] [ 3drop "" ] if ; : between-tags ( tag seq -- content ) [ (between-tags) ] catch [ 3drop "" ] when* ; @@ -54,7 +54,7 @@ USING: kernel http-client sequences namespaces math errors io ; -rot >r >r over push r> r> r> ! list tag seq end over length rot subseq (child-tags) ] [ - drop drop drop drop drop + drop drop drop drop ] if ; : child-tags ( tag seq -- list )