sequences.extras: use accumulate0-as

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 3dd39de67ecae0c4b9a0f06eb3cae28ece96fbb8..97bf7cd5dc1209a6e0eca04b53b3095411ed1f41 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -332,7 +332,7 @@ PRIVATE>
 : classify ( seq -- seq' ) classify* 2nip ; inline
 
 : occurrence-count-by ( seq quot: ( elt -- elt' ) -- hash seq' )
-    '[ nip @ over inc-at* drop ] [ H{ } clone ] 2dip 0accumulate ; inline
+    '[ nip @ over inc-at* drop ] [ H{ } clone ] 2dip { } 0accumulate-as ; inline
 
 : progressive-index-by-as ( seq1 seq2 quot exemplar -- hash seq' )
     [