core: subseq-index? -> subseq-of?
authorDoug Coleman <doug.coleman@gmail.com>
Wed, 17 Aug 2022 05:19:53 +0000 (00:19 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Wed, 17 Aug 2022 05:20:40 +0000 (00:20 -0500)
36 files changed:
basis/alien/libraries/finder/linux/linux-tests.factor
basis/alien/libraries/finder/linux/linux.factor
basis/alien/libraries/finder/macosx/macosx-tests.factor
basis/alien/libraries/finder/windows/windows-tests.factor
basis/cocoa/application/application.factor
basis/db/sqlite/sqlite.factor
basis/dns/dns.factor
basis/fixups/fixups.factor
basis/help/html/html.factor
basis/help/lint/checks/checks.factor
basis/help/lint/spaces/spaces.factor
basis/help/search/search.factor
basis/http/client/client-tests.factor
basis/quoted-printable/quoted-printable-tests.factor
basis/sequences/deep/deep-tests.factor
basis/sequences/deep/deep.factor
basis/tools/test/test-tests.factor
basis/ui/images/images.factor
core/sequences/sequences-docs.factor
core/sequences/sequences.factor
core/strings/strings-tests.factor
core/system/system-tests.factor
extra/bittorrent/bittorrent.factor
extra/cli/git/git.factor
extra/codebase-analyzer/codebase-analyzer.factor
extra/gemini/cli/cli.factor
extra/gemini/ui/ui.factor
extra/gopher/ui/ui.factor
extra/html/parser/analyzer/analyzer.factor
extra/lint/lint.factor
extra/mason/git/git.factor
extra/metar/metar.factor
extra/rosetta-code/text-processing/max-licenses/max-licenses.factor
extra/txon/txon.factor
extra/zoneinfo/zoneinfo.factor
misc/vim/syntax/factor/generated.vim

index aad51a106747fedf596d335ac98135aa274ceb5f..d23a40bc3cccb9e8bde97b35f9a3270490d0e51f 100644 (file)
@@ -1,4 +1,4 @@
 USING: alien.libraries.finder sequences tools.test ;
 
-{ t } [ "m" find-library "libm.so" subseq-index? ] unit-test
-{ t } [ "c" find-library "libc.so" subseq-index? ] unit-test
+{ t } [ "m" find-library "libm.so" subseq-of? ] unit-test
+{ t } [ "c" find-library "libc.so" subseq-of? ] unit-test
index 881d3f7e70b34f8fddcffa1332cf6d6259c5e512..58e5050da3b201bb7994e95eb8c788cb05a3c7ca 100644 (file)
@@ -20,7 +20,7 @@ CONSTANT: mach-map {
         [
             " " split1 [ "()" in? ] trim "," split
             [ [ unicode:blank? ] trim ] map
-            [ ": Linux" subseq-index? ] reject
+            [ ": Linux" subseq-of? ] reject
         ] dip 3array
     ] map ;
 
@@ -50,7 +50,7 @@ CONSTANT: mach-map {
             "ld" , "-t" , ":" split [ "-L" , , ] each
             "-o" , "/dev/null" , "-l" name append ,
         ] { } make utf8 [ read-lines ] with-process-reader* 2drop
-        "lib" name append '[ _ subseq-index? ] find nip
+        "lib" name append '[ _ subseq-of? ] find nip
     ] [ f ] if* ;
 
 PRIVATE>
index c8bd105ccbb51b3cf7aa199f1e1942136ae3b4ac..aa4244586c1b6f5fa1d7f17856dfc96d3ad64af7 100644 (file)
@@ -41,7 +41,7 @@ alien.libraries.finder.macosx.private sequences tools.test ;
     } [ dyld-find ] map
 ] unit-test
 
-{ t } [ "m" find-library "libm.dylib" subseq-index? ] unit-test
-{ t } [ "c" find-library "libc.dylib" subseq-index? ] unit-test
-{ t } [ "bz2" find-library "libbz2.dylib" subseq-index? ] unit-test
-{ t } [ "AGL" find-library "AGL.framework" subseq-index? ] unit-test
+{ t } [ "m" find-library "libm.dylib" subseq-of? ] unit-test
+{ t } [ "c" find-library "libc.dylib" subseq-of? ] unit-test
+{ t } [ "bz2" find-library "libbz2.dylib" subseq-of? ] unit-test
+{ t } [ "AGL" find-library "AGL.framework" subseq-of? ] unit-test
index 5f2caaf4e57591542e94ec9b679b88cc664a6ca7..2d7cdc96772e9f4908603b837c03784877ecaeb2 100644 (file)
@@ -1,3 +1,3 @@
 USING: alien.libraries.finder sequences tools.test ;
 
-{ t } [ "kernel32" find-library "kernel32.dll" subseq-index? ] unit-test
+{ t } [ "kernel32" find-library "kernel32.dll" subseq-of? ] unit-test
index 3216427a8c3caa7f3c1594900be3bed8cffb2fb9..a73839789237046344ba046b4c41afed0d84cc55 100644 (file)
@@ -41,7 +41,7 @@ FUNCTION: void NSBeep ( )
 : running.app? ( -- ? )
     ! Test if we're running a .app.
     NSBundle -> mainBundle -> bundlePath CF>string
-    ".app" subseq-index? ;
+    ".app" subseq-of? ;
 
 : assert.app ( message -- )
     running.app? [
index 2aea3e1fb1281e28f9ec8a9e817f81ea5fd9e3f0..ecc115bd1517c09d135e09e724949005f966a844 100644 (file)
@@ -260,7 +260,7 @@ M: sqlite-db-connection persistent-table
     "sql-spec" get modifiers>> [ +not-null+ = ] none? ;
 
 : delete-cascade? ( -- ? )
-    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-index? ;
+    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-of? ;
 
 : sqlite-trigger, ( string -- )
     { } { } <simple-statement> 3, ;
index 9f0db9ad2c6269aaa72780ca1b80bcf3fe4b13ea..8e7327bff6276daefb59cb72e2bb452390c56d3c 100644 (file)
@@ -58,7 +58,7 @@ SYMBOL: dns-servers
 ERROR: domain-name-contains-empty-label domain ;
 
 : check-domain-name ( domain -- domain )
-    dup ".." subseq-index? [ domain-name-contains-empty-label ] when ;
+    dup ".." subseq-of? [ domain-name-contains-empty-label ] when ;
 
 : >dotted ( domain -- domain' )
     dup "." tail? [ "." append ] unless ;
index 01472a032608f461a52966cac024a28ecadde5e3..d2d069497add65fe5ba0547c655750f9e46749e0 100644 (file)
@@ -48,7 +48,7 @@ CONSTANT: word-renames {
     { "(all-integers?)" { "all-integers-from?" "0.99" } }
     { "short" { "index-or-length" "0.99" } }
     { "map-integers" { "map-integers-as" "0.99" } }
-    { "deep-subseq?" { "deep-subseq-index?" "0.99" } }
+    { "deep-subseq?" { "deep-subseq-of?" "0.99" } }
 }
 
 : compute-assoc-fixups ( continuation name assoc -- seq )
index aba0d61f95696aa6f03b5fd4438f11ed0dc09a15..156e97810a4e304a66e03a4c276bff05fd623168 100644 (file)
@@ -150,17 +150,17 @@ M: pathname url-of
         " white-space: pre-wrap; line-height: 125%;" append
     ] re-replace-with
 
-    dup { "font-family: monospace;" "background-color:" } [ subseq-index? ] with all? [
+    dup { "font-family: monospace;" "background-color:" } [ subseq-of? ] with all? [
         " margin: 10px 0px;" append
     ] when
 
-    dup { "border:" "background-color:" } [ subseq-index? ] with all? [
+    dup { "border:" "background-color:" } [ subseq-of? ] with all? [
         " border-radius: 5px;" append
     ] when ;
 
 : fix-help-header ( classes -- classes )
     dup [
-        [ ".a" head? ] [ "#f4efd9;" subseq-index? ] bi and
+        [ ".a" head? ] [ "#f4efd9;" subseq-of? ] bi and
     ] find [
         "padding: 10px;" "padding: 0px;" replace
         "background-color: #f4efd9;" "background-color: white;" replace
@@ -198,7 +198,7 @@ M: pathname url-of
                 ] re-replace-with
             ] map " " join "{ " " }" surround
         ] re-replace-with "    " prepend
-        dup "{  }" subseq-index? [ drop f ] when
+        dup "{  }" subseq-of? [ drop f ] when
     ] map harvest append "}" suffix ;
 
 : css-classes ( classes -- stylesheet )
@@ -225,7 +225,7 @@ M: pathname url-of
     ] each classes sort-values css-classes body ;
 
 : retina-image ( path -- path' )
-    dup "@2x" subseq-index? [ "." split1-last "@2x." glue ] unless ;
+    dup "@2x" subseq-of? [ "." split1-last "@2x." glue ] unless ;
 
 : ?copy-file ( from to -- )
     dup file-exists? [ 2drop ] [ copy-file ] if ;
index ccbd50631f40cc262cfacd06f0991ec850576e2c..dfac066116ed37f08d15db58316d03423f9f8fb9 100644 (file)
@@ -147,7 +147,7 @@ SYMBOL: vocab-articles
             simple-lint-error
         ] when
     ] [
-        "  " subseq-index? [
+        "  " subseq-of? [
             "Paragraph text should not contain double spaces"
             simple-lint-error
         ] when
index 3411fb7ec09d867dcc585bd8527823e4d7da3fad..d8c6f161abddc5d564ebf9c8c0b75249cec792a5 100644 (file)
@@ -18,7 +18,7 @@ IN: help.lint.spaces
             first [
                 { [ CHAR: space = ] [ CHAR: " = ] } 1||
             ] trim-head
-            "  " subseq-index?
+            "  " subseq-of?
         ] filter
         [ drop ] [
             swap <pathname> .
index 90713abae19ed1e37a9359015ea8ec43b5b8c834..7c4a4b10f4fc1dc18a4179e78ec841b16058ae24 100644 (file)
@@ -37,7 +37,7 @@ MEMO: article-words ( name -- words )
     search-words [ { } ] [
         [ all-articles ] dip
         dup length 1 > [
-            '[ article-words _ subseq-index? ] filter
+            '[ article-words _ subseq-of? ] filter
         ] [
             first '[ article-words [ _ head? ] any? ] filter
         ] if
index f792d3491a66e7b59b1c10fdac3912b02bbc9a95..49b897180e86c942f75e17db7119fa77e1fb8a7c 100644 (file)
@@ -48,8 +48,8 @@ IN: http.client.tests
 ! hit the velox.ch website.
 ! { t } [
     ! "https://alice.sni.velox.ch" http-get nip
-    ! [ "Great!" subseq-index? ]
-    ! [ "TLS SNI Test Site: alice.sni.velox.ch" subseq-index? ] bi and
+    ! [ "Great!" subseq-of? ]
+    ! [ "TLS SNI Test Site: alice.sni.velox.ch" subseq-of? ] bi and
 ! ] unit-test
 
 { t } [
index 049d2b326b56dab64759633ce623ab4c3a9b32f2..e8dcf3f33bb399f36e3b0b4eb73003586c0aadef 100644 (file)
@@ -23,8 +23,8 @@ and we didn't know hów tö do thât" latin2 encode >quoted ] unit-test
 : message ( -- str )
     55 [ "hello" ] replicate concat ;
 
-{ f } [ message >quoted "=\r\n" subseq-index? ] unit-test
+{ f } [ message >quoted "=\r\n" subseq-of? ] unit-test
 { 1 } [ message >quoted split-lines length ] unit-test
-{ t } [ message >quoted-lines "=\r\n" subseq-index? ] unit-test
+{ t } [ message >quoted-lines "=\r\n" subseq-of? ] unit-test
 { 4 } [ message >quoted-lines split-lines length ] unit-test
 { "===o" } [ message >quoted-lines split-lines [ last ] "" map-as ] unit-test
index e1b8b6efdfa17e25caa63252fe291a4450d450b9..f34428699a40e47dda799a99543c8e70ed2a5c26 100644 (file)
@@ -34,13 +34,13 @@ IN: sequences.deep.tests
 [ { { 1 2 3 } 4 } { { { 1 2 3 } 4 } 2 } deep-member? ] unit-test
 
 { f }
-[ { 1 2 3 { 4 } } { 1 2 3 4 } deep-subseq-index? ] unit-test
+[ { 1 2 3 { 4 } } { 1 2 3 4 } deep-subseq-of? ] unit-test
 
 { t }
-[ { 1 2 3 4 } { 1 2 3 4 } deep-subseq-index? ] unit-test
+[ { 1 2 3 4 } { 1 2 3 4 } deep-subseq-of? ] unit-test
 
 { t }
-[ { { 1 2 3 4 } } { 1 2 3 4 } deep-subseq-index? ] unit-test
+[ { { 1 2 3 4 } } { 1 2 3 4 } deep-subseq-of? ] unit-test
 
 { 3 } [
     { 1 { 2 3 { 4 } } 5 { { 6 } 7 } } 0 [
index a006d08b3d9842321dbd55c5f799e0b202f124eb..9c1df0d31660f2cad577046e897385ad6026dfef 100644 (file)
@@ -54,9 +54,9 @@ M: object branch? drop f ;
         _ swap dup branch? [ member? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
-: deep-subseq-index? ( seq subseq -- ? )
+: deep-subseq-of? ( seq subseq -- ? )
    '[
-        _ over branch? [ subseq-index? ] [ 2drop f ] if
+        _ over branch? [ subseq-of? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
 : deep-map! ( ... obj quot: ( ... elt -- ... elt' ) -- ... obj )
index 4fe22334d78adcac380c9215536d62e1a87a5e3f..71c80992fa2e5de466dc5992496b65945ce8e357 100644 (file)
@@ -16,5 +16,5 @@ sequences tools.test tools.test.private ;
 ! Just verifies that the presented output contains a callstack.
 { t } [
     create-test-failure [ error. ] with-string-writer
-    "OBJ-CURRENT-THREAD" subseq-index?
+    "OBJ-CURRENT-THREAD" subseq-of?
 ] unit-test
index de9c6eee73ed56b489def6ed2a78c09619336310..7247f0c1d9226f467001e8d3925d6a4a23abde6a 100644 (file)
@@ -12,7 +12,7 @@ C: <image-name> image-name
 <PRIVATE
 
 MEMO: cached-image-path ( path -- image )
-    [ load-image ] [ "@2x" subseq-index? >>2x? ] bi ;
+    [ load-image ] [ "@2x" subseq-of? >>2x? ] bi ;
 
 PRIVATE>
 
index fd9cbfacf3412d1812c7a8cea9751a93774e4f92..e46441de9512f14512ec54df3155739c0c8660d4 100644 (file)
@@ -1245,7 +1245,7 @@ HELP: subseq?
 { $values { "subseq" sequence } { "seq" sequence } { "?" boolean } }
 { $description "Tests if " { $snippet "seq" } " contains the elements of " { $snippet "subseq" } " as a contiguous subsequence." } ;
 
-HELP: subseq-index?
+HELP: subseq-of?
 { $values { "seq" sequence } { "subseq" sequence } { "?" boolean } }
 { $description "Tests if " { $snippet "seq" } " contains the elements of " { $snippet "subseq" } " as a contiguous subsequence." } ;
 
@@ -2027,7 +2027,7 @@ ARTICLE: "sequences-tests" "Testing sequences"
 "Testing if a sequence contains an object:"
 { $subsections member? member-eq? }
 "Testing if a sequence contains a subsequence:"
-{ $subsections head? tail? subseq? subseq-index? } ;
+{ $subsections head? tail? subseq? subseq-of? } ;
 
 ARTICLE: "sequences-search" "Searching sequences"
 "Finding the index of an element:"
index 91fc75e51826114b6e507a033fa6cbd97af82e54..91e231b1903cc90498a8998eaeed112834ae2391 100644 (file)
@@ -1053,7 +1053,7 @@ PRIVATE>
 
 : subseq-index ( seq subseq -- i/f ) [ 0 ] 2dip subseq-index-from ; inline
 
-: subseq-index? ( seq subseq -- ? ) subseq-index >boolean ; inline
+: subseq-of? ( seq subseq -- ? ) subseq-index >boolean ; inline
 
 : subseq-start-from ( subseq seq n -- i/f )
     spin subseq-index-from ; inline deprecated
index 8ed0c9c264be5816575a946bb49874d4d0f88dbb..0fa54fe49e5abf2b08ecd105939e46063ce06597 100644 (file)
@@ -35,8 +35,8 @@ vectors ;
 { f } [ CHAR: I "team" member? ] unit-test
 { t } [ "ea" "team" subseq? ] unit-test
 { f } [ "actore" "Factor" subseq? ] unit-test
-{ t } [ "team" "ea" subseq-index? ] unit-test
-{ f } [ "Factor" "actore" subseq-index? ] unit-test
+{ t } [ "team" "ea" subseq-of? ] unit-test
+{ f } [ "Factor" "actore" subseq-of? ] unit-test
 
 { "end" } [ "Beginning and end" 14 tail ] unit-test
 
index 40d77fdc570ba89ab1c03aa0688c19c1bf2ec8d0..7e7b1076c6ad5c73a9296739a2ecc94400d24e7a 100644 (file)
@@ -3,5 +3,5 @@ USING: arrays kernel sequences system tools.test ;
 { { t t t } } [
     version-info
     vm-version vm-compiler vm-compile-time 3array
-    [ subseq-index? ] with map
+    [ subseq-of? ] with map
 ] unit-test
index b46b00ad8094f86ed1b658965b4c8b58421e7806..624544575eb0cb25d111261d944a6ccc8da65369 100644 (file)
@@ -73,7 +73,7 @@ M: string load-metainfo
     dup "announce-list" of [ nip first random ] [ "announce" of ] if* ;
 
 : scrape-url ( metainfo -- url/f )
-    announce-url dup path>>  "announce" subseq-index? [
+    announce-url dup path>>  "announce" subseq-of? [
         [ "announce" "scrape" replace ] change-path
     ] [ drop f ] if ;
 
index 39b42f7fd868601598dce63b936e451bdf9d0e53..0e6063fc0e586884d0ce423c808c963bed0af6b9 100644 (file)
@@ -63,5 +63,5 @@ cli-git-num-parallel [ cpus 2 * ] initialize
 
 : directory-entries-without-git ( directory -- entries )
     recursive-directory-entries
-    [ name>> "/.git/" subseq-index? ] reject ;
+    [ name>> "/.git/" subseq-of? ] reject ;
 
index ab5a80a42953ed21a3544ba6b7596a1d326e6058..25f13152792078a85a53374dae23566acde3f6d0 100644 (file)
@@ -23,10 +23,10 @@ IN: codebase-analyzer
     [ has-file-extension? ] filter ;
 
 : without-git-paths ( paths -- paths' )
-    [ "/.git/" subseq-index? ] reject ;
+    [ "/.git/" subseq-of? ] reject ;
 
 : without-node-modules-paths ( paths -- paths' )
-    [ "/node_modules/" subseq-index? ] reject ;
+    [ "/node_modules/" subseq-of? ] reject ;
 
 : regular-directory-files ( path -- seq )
     recursive-directory-files
index 16b2b31109d61bccd6b8e5c94b206ed971c803f6..0d815873c9c4f8f42941b1a28e099fb35ac361df 100644 (file)
@@ -101,7 +101,7 @@ CONSTANT: URL V{ }
 
 : gemini-go ( args -- )
     present [ DEFAULT-URL ] when-empty
-    { [ dup "://" subseq-index? ] [ "gemini://" head? ] } 1||
+    { [ dup "://" subseq-of? ] [ "gemini://" head? ] } 1||
     [ "gemini://" prepend ] unless
     dup "gemini://" head? [
         [ add-history ] [ add-stack ] [ gemini-get ] tri
index f40a77abba3db328e92dc37766fa41f051a7cbe2..a9f3ed1bf99107ec62800447f2ab068159014d21 100644 (file)
@@ -29,7 +29,7 @@ M: gemini-gadget model-changed
     [ url-field>> editor>> set-editor-string ] bi* ;
 
 : ?gemini-url ( obj -- url )
-    present dup "://" subseq-index? [ "gemini://" prepend ] unless >url ;
+    present dup "://" subseq-of? [ "gemini://" prepend ] unless >url ;
 
 : show-gemini ( url gemini-gadget -- )
     [ [ ?gemini-url ] [ f ] if* ] dip
index edcc48fe6f9fc7b47f0131c57a22b9848d05f6ef..be7f9b8d9fd8967241f1451c1a6750cf806a1b55 100644 (file)
@@ -29,7 +29,7 @@ M: gopher-gadget model-changed
     [ url-field>> editor>> set-editor-string ] bi* ;
 
 : ?gopher-url ( obj -- url )
-    present dup "://" subseq-index? [ "gopher://" prepend ] unless >url ;
+    present dup "://" subseq-of? [ "gopher://" prepend ] unless >url ;
 
 : show-gopher ( url gopher-gadget -- )
     [ [ ?gopher-url ] [ f ] if* ] dip
index ceb4086b06b890d18cd4215c11e35b7e02661e43..0964b0ad3f2783a5be351bb16f33d40d81038767 100644 (file)
@@ -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 subseq-index? ] [ 2drop f ] if ;
+    "href" attribute* [ swap subseq-of? ] [ 2drop f ] if ;
 
 : find-hrefs ( vector -- vector' )
     [ { [ name>> "a" = ] [ "href" attribute? ] } 1&& ] filter sift
index b874bc8abbc483480c73f6c7c45adee5cb814bc5..84491a5ae4d8443fa0f6ed1f9c573a8d489ae658 100644 (file)
@@ -250,7 +250,7 @@ GENERIC: lint ( obj -- seq )
 M: object lint ( obj -- seq ) drop f ;
 
 M: callable lint ( quot -- seq )
-    lint-definitions-keys get-global [ subseq-index? ] with filter ;
+    lint-definitions-keys get-global [ subseq-of? ] with filter ;
 
 M: word lint ( word -- seq/f )
     def>> [ callable? ] deep-filter [ lint ] map concat ;
index 9dcac4048db84f823b95b4a735b937ac7918e12c..9cccf438c74b6e2b9d6a590af8a92c6a35fbc63b 100644 (file)
@@ -47,7 +47,7 @@ IN: mason.git
 
 : git-pull-failed ( error -- )
     dup output-process-error? [
-        dup output>> "not uptodate. Cannot merge." subseq-index?
+        dup output>> "not uptodate. Cannot merge." subseq-of?
         [ git-repo-corrupted ]
         [ rethrow ]
         if
index d54c8c2c78d4eec541bf8b85fa6ff6658181f7f4..230081f620c316f695095a8eddfe9a46702e9dc8 100644 (file)
@@ -282,7 +282,7 @@ CONSTANT: compass-directions H{
     ] if ;
 
 : parse-weather ( str -- str' )
-    dup "VC" subseq-index? [ "VC" "" replace t ] [ f ] if
+    dup "VC" subseq-of? [ "VC" "" replace t ] [ f ] if
     [ (parse-weather) ]
     [ [ " in the vicinity" append ] when ] bi* ;
 
index 4bf895ccbaae11281b71416b70156cd0cabb3cc6..9c931179570be5c8c4930ca6a319fa0e3af78bc1 100644 (file)
@@ -32,7 +32,7 @@ TUPLE: maxlicense max-count current-count times ;
 
 : <maxlicense> ( -- max ) -1 0 V{ } clone \ maxlicense boa ; inline
 
-: out? ( line -- ? ) "OUT" subseq-index? ; inline
+: out? ( line -- ? ) "OUT" subseq-of? ; inline
 
 : line-time ( line -- time ) split-words harvest fourth ; inline
 
index f384bbb62d705c7e3f3c1116e94cfbb5e471ea33..0e826b216536ff5a3e8c9c933ddc717bda504d3a 100644 (file)
@@ -42,7 +42,7 @@ DEFER: name/values
 
 : name=value ( string -- remain term )
     [ unicode:blank? ] trim
-    dup ":`" subseq-index? [ (name=value) ] [ f swap ] if ;
+    dup ":`" subseq-of? [ (name=value) ] [ f swap ] if ;
 
 : name/values ( string -- remain terms )
     [ dup { [ empty? not ] [ first CHAR: ` = not ] } 1&& ]
index 58782b4ed31a0cdec6e289695ad224c73d713792..1c3f1e329b734d9a6666c3e8776f1f57cfec7ad3 100644 (file)
@@ -147,7 +147,7 @@ MEMO: zoneinfo-assoc ( -- assoc )
 
 : zoneinfo-zones ( -- seq )
     raw-zone-map keys
-    [ "/" subseq-index? ] partition
+    [ "/" subseq-of? ] partition
     [ natural-sort ] bi@ append ;
 
 GENERIC: zone-matches? ( string rule -- ? )
@@ -232,8 +232,8 @@ ERROR: unknown-day-abbrev day ;
 
 : comparison-day-string ( timestamp string -- timestamp )
     {
-        { [ dup ">=" subseq-index? ] [ ">=" split1 swap [ string>number >>day ] dip day-abbrev>= ] }
-        { [ dup "<=" subseq-index? ] [ "<=" split1 swap [ string>number >>day ] dip day-abbrev<= ] }
+        { [ dup ">=" subseq-of? ] [ ">=" split1 swap [ string>number >>day ] dip day-abbrev>= ] }
+        { [ dup "<=" subseq-of? ] [ "<=" split1 swap [ string>number >>day ] dip day-abbrev<= ] }
         [ string>number >>day ]
     } cond ;
         
index 498e9ab3a7bfa1d03d5fcd1eaaa67e24e4853103..4cc721bd8608ed07829d3f42b01187ec3bbef78e 100644 (file)
@@ -41,7 +41,7 @@ SynKeywordFactorWord factorWord_math | syn keyword factorWord_math contained * +
 SynKeywordFactorWord factorWord_math_order | syn keyword factorWord_math_order contained +eq+ +gt+ +lt+ <=> >=< [-] after=? after? before=? before? between? clamp compare invert-comparison max min
 SynKeywordFactorWord factorWord_memory | syn keyword factorWord_memory contained all-instances compact-gc gc instances minor-gc save save-image save-image-and-exit saving-path size
 SynKeywordFactorWord factorWord_namespaces | syn keyword factorWord_namespaces contained +@ change change-global counter dec get get-global get-namestack global inc init-namestack initialize namespace off on set set-global set-namestack toggle with-global with-scope with-variable with-variables
-SynKeywordFactorWord factorWord_sequences | syn keyword factorWord_sequences contained 1sequence 1surround 1surround-as 2all? 2any? 2each 2each-from 2map 2map-as 2map-reduce 2reduce 2selector 2sequence 3append 3append-as 3each 3map 3map-as 3sequence 4sequence <iota> <repetition> <reversed> <slice> >slice< ?first ?last ?nth ?second ?set-nth accumulate accumulate! accumulate* accumulate*! accumulate*-as accumulate-as all? any? append append! append-as assert-sequence assert-sequence= assert-sequence? binary-reduce bounds-check bounds-check? bounds-error bounds-error? but-last but-last-slice cartesian-each cartesian-find cartesian-map cartesian-product cartesian-product-as change-nth check-slice clone-like collapse-slice collector collector-as collector-for collector-for-as concat concat-as copy count cut cut* cut-slice cut-slice* delete-all delete-slice drop-prefix each each-from each-index empty? exchange filter filter! filter-as find find-from find-index find-index-from find-last find-last-from first first2 first3 first4 flip follow fourth from-tail glue glue-as halves harvest head head* head-slice head-slice* head-to-index head? if-empty immutable immutable-sequence immutable-sequence? immutable? index index-from index-of-last index-or-length index-to-tail indices infimum infimum-by insert-nth interleave iota iota? join join-as last last-index last-index-from length lengthen like longer longer? longest map map! map-as map-find map-find-last map-index map-index-as map-integers map-integers-as map-reduce map-sum max-length member-eq? member? midpoint@ min-length mismatch move new-like new-resizable new-sequence non-negative-integer-expected non-negative-integer-expected? none? nth nths pad-head pad-tail partition pop pop* prefix prepend prepend-as produce produce-as product push push-all push-either push-if reduce reduce-index reject reject! reject-as remove remove! remove-eq remove-eq! remove-nth remove-nth! repetition repetition? replace-slice replicate replicate-as rest rest-slice reverse reverse! reversed reversed? second selector selector-as sequence sequence-hashcode sequence= sequence? set-first set-fourth set-last set-length set-nth set-second set-third shorten shorter shorter? shortest sift slice slice-error slice-error? slice? snip snip-slice subseq subseq-as subseq-index subseq-index-from subseq-index? subseq-start subseq-start-from subseq-starts-at? subseq? suffix suffix! sum sum-lengths supremum supremum-by surround surround-as tail tail* tail-slice tail-slice* tail? third trim trim-head trim-head-slice trim-slice trim-tail trim-tail-slice unclip unclip-last unclip-last-slice unclip-slice unless-empty virtual-exemplar virtual-sequence virtual-sequence? virtual@ when-empty
+SynKeywordFactorWord factorWord_sequences | syn keyword factorWord_sequences contained 1sequence 1surround 1surround-as 2all? 2any? 2each 2each-from 2map 2map-as 2map-reduce 2reduce 2selector 2sequence 3append 3append-as 3each 3map 3map-as 3sequence 4sequence <iota> <repetition> <reversed> <slice> >slice< ?first ?last ?nth ?second ?set-nth accumulate accumulate! accumulate* accumulate*! accumulate*-as accumulate-as all? any? append append! append-as assert-sequence assert-sequence= assert-sequence? binary-reduce bounds-check bounds-check? bounds-error bounds-error? but-last but-last-slice cartesian-each cartesian-find cartesian-map cartesian-product cartesian-product-as change-nth check-slice clone-like collapse-slice collector collector-as collector-for collector-for-as concat concat-as copy count cut cut* cut-slice cut-slice* delete-all delete-slice drop-prefix each each-from each-index empty? exchange filter filter! filter-as find find-from find-index find-index-from find-last find-last-from first first2 first3 first4 flip follow fourth from-tail glue glue-as halves harvest head head* head-slice head-slice* head-to-index head? if-empty immutable immutable-sequence immutable-sequence? immutable? index index-from index-of-last index-or-length index-to-tail indices infimum infimum-by insert-nth interleave iota iota? join join-as last last-index last-index-from length lengthen like longer longer? longest map map! map-as map-find map-find-last map-index map-index-as map-integers map-integers-as map-reduce map-sum max-length member-eq? member? midpoint@ min-length mismatch move new-like new-resizable new-sequence non-negative-integer-expected non-negative-integer-expected? none? nth nths pad-head pad-tail partition pop pop* prefix prepend prepend-as produce produce-as product push push-all push-either push-if reduce reduce-index reject reject! reject-as remove remove! remove-eq remove-eq! remove-nth remove-nth! repetition repetition? replace-slice replicate replicate-as rest rest-slice reverse reverse! reversed reversed? second selector selector-as sequence sequence-hashcode sequence= sequence? set-first set-fourth set-last set-length set-nth set-second set-third shorten shorter shorter? shortest sift slice slice-error slice-error? slice? snip snip-slice subseq subseq-as subseq-index subseq-index-from subseq-of? subseq-start subseq-start-from subseq-starts-at? subseq? suffix suffix! sum sum-lengths supremum supremum-by surround surround-as tail tail* tail-slice tail-slice* tail? third trim trim-head trim-head-slice trim-slice trim-tail trim-tail-slice unclip unclip-last unclip-last-slice unclip-slice unless-empty virtual-exemplar virtual-sequence virtual-sequence? virtual@ when-empty
 SynKeywordFactorWord factorWord_sets | syn keyword factorWord_sets contained ?adjoin ?delete adjoin adjoin-all adjoin-at all-unique? cardinality clear-set delete diff diff! duplicates fast-set gather in? intersect intersect! intersect-all intersects? members null? set set-like set= set? subset? union union! union-all within without
 SynKeywordFactorWord factorWord_sorting | syn keyword factorWord_sorting contained compare-with inv-sort-with natural-sort sort sort-keys sort-pair sort-values sort-with
 SynKeywordFactorWord factorWord_splitting | syn keyword factorWord_splitting contained ?head ?head-slice ?snip ?snip-slice ?tail ?tail-slice join-lines join-lines-as join-words join-words-as replace split split-indices split-lines split-slice split-subseq split-when split-when-slice split-words split1 split1-last split1-last-slice split1-slice split1-when split1-when-slice string-lines subseq-range