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

math.extras: remove variable effects from cum-reduce for now.

db4
John Benediktsson 2012-09-26 15:20:18 -07:00
parent 35bd1a4bbc
commit 35677bc5fa
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/math/extras/extras.factor
View File

@ -155,7 +155,7 @@ PRIVATE>
: until-zero ( n quot -- ) : until-zero ( n quot -- )
[ dup zero? ] swap until drop ; inline [ dup zero? ] swap until drop ; inline
: cum-reduce ( ... seq identity quot: ( ... prev elt -- ... next ) -- ... result cum-result ) : cum-reduce ( seq identity quot: ( prev elt -- next ) -- result cum-result )
[ dup rot ] dip dup '[ _ curry dip dupd @ ] each ; inline [ dup rot ] dip dup '[ _ curry dip dupd @ ] each ; inline
<PRIVATE <PRIVATE