From 99a37fd57105706adf4d7bb49bbda32741e7bfb4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Philipp=20Br=C3=BCschweiler?= <blei42@gmail.com>
Date: Fri, 13 Aug 2010 22:53:37 +0200
Subject: [PATCH] html.parser.analyzer: find-between* didn't always return a
 sequence, which in turn broke find-hrefs (reported by randy7)

---
 extra/html/parser/analyzer/analyzer.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index 760fd1e47b..8a0801e5ec 100644
--- 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