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

fix sequences bootstrap

db4
Joe Groff 2009-10-22 14:53:16 -05:00
parent fdea9b09f2
commit ba5429e772
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -505,7 +505,7 @@ PRIVATE>
V{ } accumulator-for ; inline V{ } accumulator-for ; inline
: produce-as ( pred quot exemplar -- seq ) : produce-as ( pred quot exemplar -- seq )
dup '[ _ accumulator-for [ while ] dip ] dip like ; inline dup [ accumulator-for [ while ] dip ] curry dip like ; inline
: produce ( pred quot -- seq ) : produce ( pred quot -- seq )
{ } produce-as ; inline { } produce-as ; inline