sequences.extras: loop>sequence simplify.

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 7c0065083188a139fe0763f8ecb29c60fe1b7c15..c20e3d448a07a63e4a5a359b24f129bb79cbfbb8 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -457,7 +457,7 @@ PRIVATE>
     { } loop>sequence* ; inline
 
 : loop>sequence ( ... quot: ( ... -- ... obj/f ) exemplar -- ... seq )
-    [ [ dup ] compose ] dip loop>sequence** ; inline
+    [ [ dup ] compose [ ] ] dip produce-as nip ; inline
 
 : loop>array ( ... quot: ( ... -- ... obj/f ) -- ... array )
    { } loop>sequence ; inline