factor: refactor subseq-start

[factor.git] / basis / compression / gzip / gzip.factor

diff --git a/basis/compression/gzip/gzip.factor b/basis/compression/gzip/gzip.factor
index a5bf463271309635c0d9287beda65104f176857c..cf8332397b1ded56873ddfc5d995ec9109c882e5 100644 (file)
--- a/basis/compression/gzip/gzip.factor
+++ b/basis/compression/gzip/gzip.factor
@@ -16,7 +16,7 @@ SYMBOL: lit-vec
 :: longest-prefix ( ind seq -- start end )
     ind dup ind + seq length min [a..b]
     seq ind head-slice '[
-    ind swap seq <slice> _ subseq-start
+        [ _ ] dip ind swap seq <slice> subsequence-starts
     ] map-find-last ;
 
 :: create-pair ( ind seq -- array )