fix sequences bootstrap

2009-10-22 14:53:16 -05:00 · 2009-10-22 14:53:16 -05:00 · ba5429e772
parent fdea9b09f2
commit ba5429e772
1 changed files with 1 additions and 1 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -505,7 +505,7 @@ PRIVATE>
    V{ } accumulator-for ; inline

 : 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-as ; inline