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

sequences.extras: adding remove-last.

db4
John Benediktsson 2013-05-07 06:15:02 -07:00
parent ba02db8485
commit 2ba006cd71
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -422,3 +422,9 @@ PRIVATE>
: remove-first! ( obj seq -- seq )
[ index ] keep over [ remove-nth! ] [ nip ] if ;
: remove-last ( obj seq -- seq' )
[ last-index ] keep over [ remove-nth ] [ nip ] if ;
: remove-last! ( obj seq -- seq )
[ last-index ] keep over [ remove-nth! ] [ nip ] if ;