sequences: faster remove-nth.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 694c8c4754241e387239a42e07b3dd2c86139394..004beed3d39f3411b3349516f0c788413d74a78b 100644 (file)
--- 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 >=