From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 30 Nov 2020 22:30:31 +0000 (-0800)
Subject: sequences.extras: loop>sequence simplify.
X-Git-Tag: 0.99~2872
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=bec165e65d7699c202b11c183c71c75aaaa1e2f3

sequences.extras: loop>sequence simplify.
---

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 7c00650831..c20e3d448a 100644
--- 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