sequences.extras: Make sure assoc-reduce is working on an alist.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index d8f3bebdc823874b34add88eb4d297f1090d397b..0db12f0007a7508f325a0a20a97bc8bc7aff6bf2 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -338,7 +338,7 @@ PRIVATE>
     [ (reverse) ] [ like ] bi* ;
 
 : assoc-reduce ( ... assoc identity quot: ( ... prev key value -- next ) -- ... result )
-    [ first2 ] prepose reduce ; inline
+    [ >alist ] 2dip [ first2 ] prepose reduce ; inline
     
 : reduce-keys ( ... assoc identity quot: ( ... prev elt -- ... next ) -- ... result )
     [ drop ] prepose assoc-reduce ; inline