sequences.extras: make loop>array* use produce.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 7f71ff0076bbd0e33621502c3a28218b9efab2af..7c0065083188a139fe0763f8ecb29c60fe1b7c15 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -451,7 +451,7 @@ PRIVATE>
     { } loop>sequence** ; inline
 
 : loop>sequence* ( ... quot: ( ... -- ... obj ? ) exemplar -- ... seq )
-    [ '[ [ @ [ [ , ] when* ] [ ] bi* ] loop ] ] dip make ; inline
+    [ t ] [ '[ [ _ dip ] [ f f f ] if* ] [ swap ] ] [ produce-as 2nip ] tri* ; inline
 
 : loop>array* ( ... quot: ( ... -- ... obj ? ) -- ... array )
     { } loop>sequence* ; inline