steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Doug Coleman 2012-09-26 09:10:28 -07:00
parent 768611d130
commit 9f4f76ab8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/extras/extras.factor
View File

@ -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