core: find-subseq -> subsequence-starts, find-subseq-from -> subsequence-starts-from

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

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