sequences.extras: add some words that might be useful

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 2ec7576c0e6a0beebc694461aad98623cb6002b4..0f71624c5babc2f71783217f37f28a8636f0f17b 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -722,9 +722,15 @@ ERROR: slice-error-of from to seq ;
 : remove-nth-of ( seq n -- seq' )
     [ dup 1 + rot snip-slice ] keepd append-as ;
 
+: remove-nth-of* ( seq n -- nth seq' )
+    [ nth-of ] [ remove-nth-of ] 2bi ;
+
 : remove-nth-of! ( seq n -- seq )
     dup 1 + delete-slice-of ;
 
+: remove-nth-of*! ( seq n -- nth seq )
+    [ nth-of ] [ dup 1 + delete-slice-of ] 2bi ;
+
 : snip-of ( seq from to -- head tail )
     [ head ] [ tail ] bi-curry* bi ; inline