sequences: faster remove-nth.

2013-04-17 09:05:19 -07:00 · 2013-04-17 09:05:19 -07:00 · 21463894e7
parent 15c4927c5f
commit 21463894e7
1 changed files with 1 additions and 1 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -783,7 +783,7 @@ PRIVATE>
    snip-slice surround ;

 : remove-nth ( n seq -- seq' )
-    [ [ { } ] dip dup 1 + ] dip replace-slice ;
+    [ [ dup 1 + ] dip snip-slice ] keep append-as ;

 : pop ( seq -- elt )
    [ length 1 - ] keep over 0 >=