From bec165e65d7699c202b11c183c71c75aaaa1e2f3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 30 Nov 2020 14:30:31 -0800 Subject: [PATCH] sequences.extras: loop>sequence simplify. --- extra/sequences/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.34.1