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

sequences: add glue-as and surround-as

modern-harvey3
Doug Coleman 2019-10-24 21:47:19 -05:00
parent 6956a90dba
commit bf79c1abd1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -377,8 +377,12 @@ PRIVATE>
: surround ( seq1 seq2 seq3 -- newseq ) swapd 3append ; inline : surround ( seq1 seq2 seq3 -- newseq ) swapd 3append ; inline
: surround-as ( seq1 seq2 seq3 exemplar -- newseq ) [ swapd ] dip 3append-as ; inline
: glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline : glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline
: glue-as ( seq1 seq2 seq3 exemplar -- newseq ) swapd 3append-as ; inline
: change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b ) : change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b )
[ [ nth ] dip call ] 2keepd set-nth-unsafe ; inline [ [ nth ] dip call ] 2keepd set-nth-unsafe ; inline