steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge remote-tracking branch 'origin/master' into modern-harvey3

modern-harvey3
Doug Coleman 2018-12-16 13:31:33 -06:00
parent 3ac71a1317 9c29759775
commit d5b153596d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/sequences/extras/extras.factor
View File

@ -445,16 +445,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
<PRIVATE