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

[factor.git] / basis / dns / dns.factor

diff --git a/basis/dns/dns.factor b/basis/dns/dns.factor
index 9f0db9ad2c6269aaa72780ca1b80bcf3fe4b13ea..8e7327bff6276daefb59cb72e2bb452390c56d3c 100644 (file)
--- a/basis/dns/dns.factor
+++ b/basis/dns/dns.factor
@@ -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 ;