sequences: adding nths-unsafe.

2013-04-06 14:20:32 -07:00 · 2013-04-06 14:20:32 -07:00 · f13cbb3c4a
parent b129623080
commit f13cbb3c4a
1 changed files with 7 additions and 0 deletions
--- 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 ;