X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fgemini%2Fcli%2Fcli.factor;h=0d815873c9c4f8f42941b1a28e099fb35ac361df;hp=16b2b31109d61bccd6b8e5c94b206ed971c803f6;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6 diff --git a/extra/gemini/cli/cli.factor b/extra/gemini/cli/cli.factor index 16b2b31109..0d815873c9 100644 --- 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