sequences: adding nths-unsafe.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index e496e55c244025f8029bbd0e7a4d17d6a4c2887d..1d3b12fa75768a5ddc85574aa6688ba6f93ace5f 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -599,6 +599,13 @@ PRIVATE>
     swap V{ } clone
     [ [ (indices) ] 2curry each-index ] keep ;
 
+<PRIVATE
+
+: nths-unsafe ( indices seq -- seq' )
+    [ [ nth-unsafe ] curry ] keep map-as ;
+
+PRIVATE>
+
 : nths ( indices seq -- seq' )
     [ [ nth ] curry ] keep map-as ;