core: find-subseq -> subsequence-starts, find-subseq-from -> subsequence-starts-from

[factor.git] / extra / html / parser / analyzer / analyzer.factor

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index 6fd88ddbdcec9e2cd90999c78065e84c9bea9b96..112545e2c71668b8655e62142566bf54e6d6a3ce 100644 (file)
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@@ -142,7 +142,7 @@ ERROR: undefined-find-nth m n seq quot ;
     [ { [ name>> = ] [ closing?>> not ] } 1&& ] with find-all ;
 
 : href-contains? ( str tag -- ? )
-    "href" attribute* [ swap find-subseq? ] [ 2drop f ] if ;
+    "href" attribute* [ swap subsequence? ] [ 2drop f ] if ;
 
 : find-hrefs ( vector -- vector' )
     [ { [ name>> "a" = ] [ "href" attribute? ] } 1&& ] filter sift