sequences: rename subsequence? words to subseq? again.

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

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