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

sequences: faster last / set-last.

db4
John Benediktsson 2012-07-18 12:31:53 -07:00
parent bf3dbde042
commit ac9fc4035f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/sequences/sequences.factor
View File

@ -688,9 +688,13 @@ PRIVATE>
: append! ( seq1 seq2 -- seq1 ) over push-all ; inline
: last ( seq -- elt ) [ length 1 - ] [ nth ] bi ;
: last ( seq -- elt )
[ length 1 - ] keep
over 0 < [ bounds-error ] [ nth-unsafe ] if ; inline
: set-last ( elt seq -- ) [ length 1 - ] keep set-nth ;
: set-last ( elt seq -- )
[ length 1 - ] keep
over 0 < [ bounds-error ] [ set-nth-unsafe ] if ; inline
: pop* ( seq -- ) [ length 1 - ] [ shorten ] bi ;