sequences: rename subsequence? words to subseq? again.

[factor.git] / extra / rosetta-code / multisplit / multisplit.factor

diff --git a/extra/rosetta-code/multisplit/multisplit.factor b/extra/rosetta-code/multisplit/multisplit.factor
index 3437741229f4cbba1a829b1265e4b2bdfde227b2..1097fa85a0a026e6353cd9bed638447d93fb4921 100644 (file)
--- a/extra/rosetta-code/multisplit/multisplit.factor
+++ b/extra/rosetta-code/multisplit/multisplit.factor
@@ -6,7 +6,7 @@ IN: rosetta-code.multisplit
 
 : first-subseq ( seq separators -- n separator )
     tuck
-    [ [ subsequence-starts ] dip 2array ] withd map-index sift-keys
+    [ [ subseq-index ] dip 2array ] withd map-index sift-keys
     [ drop f f ] [ [ first ] infimum-by first2 rot nth ] if-empty ;
 
 : multisplit ( string separators -- seq )