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

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

diff --git a/extra/gemini/ui/ui.factor b/extra/gemini/ui/ui.factor
index f40a77abba3db328e92dc37766fa41f051a7cbe2..a9f3ed1bf99107ec62800447f2ab068159014d21 100644 (file)
--- a/extra/gemini/ui/ui.factor
+++ b/extra/gemini/ui/ui.factor
@@ -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