core: subseq-index? -> subseq-of?

[factor.git] / extra / gemini / cli / cli.factor

diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor
index 16b2b31109d61bccd6b8e5c94b206ed971c803f6..0d815873c9c4f8f42941b1a28e099fb35ac361df 100644 (file)
--- a/extra/gemini/cli/cli.factor
+++ b/extra/gemini/cli/cli.factor
@@ -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