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

[factor.git] / basis / help / html / html.factor

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index fd885b22cfe9797731e04da5028ba6386104fd94..2aeb70a85a95c894db2fa72a55fd9d3969997210 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -140,17 +140,17 @@ M: pathname url-of
         " white-space: pre-wrap; line-height: 125%;" append
     ] re-replace-with
 
-    { "font-family: monospace;" "background-color:" } [ find-subseq? ] with all?[
+    { "font-family: monospace;" "background-color:" } [ subsequence? ] with all?[
         " margin: 10px 0px;" append
     ] when
 
-    dup { "border:" "background-color:" } [ find-subseq? ] with all? [
+    dup { "border:" "background-color:" } [ subsequence? ] with all? [
         " border-radius: 5px;" append
     ] when ;
 
 : fix-help-header ( classes -- classes )
     dup [
-        [ ".a" head? ] [ "#f4efd9;" find-subseq? ] bi and
+        [ ".a" head? ] [ "#f4efd9;" subsequence? ] bi and
     ] find [
         "padding: 10px;" "padding: 0px;" replace
         "background-color: #f4efd9;" "background-color: white;" replace
@@ -188,7 +188,7 @@ M: pathname url-of
                 ] re-replace-with
             ] map " " join "{ " " }" surround
         ] re-replace-with "    " prepend
-        dup "{  }" find-subseq? [ drop f ] when
+        dup "{  }" subsequence? [ drop f ] when
     ] map harvest append "}" suffix ;
 
 : css-classes ( classes -- stylesheet )
@@ -215,7 +215,7 @@ M: pathname url-of
     ] each classes sort-values css-classes body ;
 
 : retina-image ( path -- path' )
-    dup "@2x" find-subseq? [ "." split1-last "@2x." glue ] unless ;
+    dup "@2x" subsequence? [ "." split1-last "@2x." glue ] unless ;
 
 : ?copy-file ( from to -- )
     dup file-exists? [ 2drop ] [ copy-file ] if ;