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

[factor.git] / extra / bittorrent / bittorrent.factor

diff --git a/extra/bittorrent/bittorrent.factor b/extra/bittorrent/bittorrent.factor
index 1564022d9b1af9a939c34ca57c311002f3a5c7c8..dad0fff281f907e3c199e6b7491eb0654755f593 100644 (file)
--- a/extra/bittorrent/bittorrent.factor
+++ b/extra/bittorrent/bittorrent.factor
@@ -73,7 +73,7 @@ M: string load-metainfo
     dup "announce-list" of [ nip first random ] [ "announce" of ] if* ;
 
 : scrape-url ( metainfo -- url/f )
-    announce-url dup path>>  "announce" find-subseq? [
+    announce-url dup path>>  "announce" subsequence? [
         [ "announce" "scrape" replace ] change-path
     ] [ drop f ] if ;