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

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

diff --git a/basis/dns/dns.factor b/basis/dns/dns.factor
index 2cb75d9eb8b38a4249baf8f6a4bb41500370fb7e..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 ".." find-subseq? [ domain-name-contains-empty-label ] when ;
+    dup ".." subseq-of? [ domain-name-contains-empty-label ] when ;
 
 : >dotted ( domain -- domain' )
     dup "." tail? [ "." append ] unless ;