From 9c297597751269e2bcd5deeb5b650084ac072a45 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 16 Dec 2018 13:30:55 -0600 Subject: [PATCH] sequences.extras: Allow row variables in loop>array etc. --- extra/sequences/extras/extras.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 8011069993..cb75baa409 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -444,16 +444,16 @@ PRIVATE> : last? ( ... seq quot: ( ... elt -- ... ? ) -- ... ? ) [ last ] dip call ; inline : nth? ( ... n seq quot: ( ... elt -- ... ? ) -- ... ? ) [ nth ] dip call ; inline -: loop>sequence ( quot: ( -- obj/f ) exemplar -- seq ) +: loop>sequence ( quot: ( ..a -- ..a obj/f ) exemplar -- seq ) [ '[ [ @ [ [ , ] when* ] keep ] loop ] ] dip make ; inline -: loop>array ( quot: ( -- obj/f ) -- seq ) +: loop>array ( quot: ( ..a -- ..a obj/f ) -- seq ) { } loop>sequence ; inline -: loop>sequence* ( quot: ( -- obj ? ) exemplar -- seq ) +: loop>sequence* ( quot: ( ..a -- ..a obj ? ) exemplar -- seq ) [ '[ [ @ [ [ , ] when* ] [ ] bi* ] loop ] ] dip make ; inline -: loop>array* ( quot: ( -- obj ? ) -- seq ) +: loop>array* ( quot: ( ..a -- ..a obj ? ) -- seq ) { } loop>sequence* ; inline