rename math.statistics:cum-map to sequences:accumulate*

[factor.git] / extra / images / tiff / tiff.factor

diff --git a/extra/images/tiff/tiff.factor b/extra/images/tiff/tiff.factor
index aee3d747d97c6d4e76779a69d8051dcf74860257..2fab7c147cd018307849e4867bf275caa707410e 100755 (executable)
--- a/extra/images/tiff/tiff.factor
+++ b/extra/images/tiff/tiff.factor
@@ -473,7 +473,7 @@ ERROR: unhandled-compression compression ;
     [ * ] keep
     '[
         _ group
-        [ _ group unclip [ v+ ] accumulate swap suffix concat ] map
+        [ _ [ group ] [ 0 <array> ] bi [ v+ ] accumulate* concat ] map
         B{ } concat-as
     ] change-bitmap ;