add remove-nth

2008-03-22 01:21:21 -05:00 · 2008-03-22 01:21:21 -05:00 · 3d1ba04462
parent bd89b4eb12
commit 3d1ba04462
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -225,3 +225,6 @@ PRIVATE>

 : replace ( str oldseq newseq -- str' )
    H{ } 2seq>assoc substitute ;
+
+: remove-nth ( seq n -- seq' )
+    cut-slice 1 tail-slice append ;