html.parser.analyzer: find-between* didn't always return a sequence, which in turn broke find-hrefs (reported by randy7)

2010-08-13 22:53:37 +02:00 · 2010-08-13 22:53:37 +02:00 · 99a37fd571
parent 50c3f2e03e
commit 99a37fd571
1 changed files with 1 additions and 2 deletions
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@ -29,8 +29,7 @@ TUPLE: link attributes clickable ;
 : find-between* ( vector i/f tag/f -- vector )
    over integer? [
        [ tail-slice ] [ name>> ] bi*
-        dupd find-matching-close drop dup [ 1 + ] when
-        [ head ] [ first ] if*
+        dupd find-matching-close drop 0 or 1 + head
    ] [
        3drop V{ } clone
    ] if ; inline