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

sequences: faster remove-nth.

db4
John Benediktsson 2013-04-17 09:05:19 -07:00
parent 15c4927c5f
commit 21463894e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -783,7 +783,7 @@ PRIVATE>
snip-slice surround ; snip-slice surround ;
: remove-nth ( n seq -- seq' ) : remove-nth ( n seq -- seq' )
[ [ { } ] dip dup 1 + ] dip replace-slice ; [ [ dup 1 + ] dip snip-slice ] keep append-as ;
: pop ( seq -- elt ) : pop ( seq -- elt )
[ length 1 - ] keep over 0 >= [ length 1 - ] keep over 0 >=