From f13cbb3c4a3f2b559badb279f04eecae82661869 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Apr 2013 14:20:32 -0700
Subject: [PATCH] sequences: adding nths-unsafe.

---
 core/sequences/sequences.factor | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index e496e55c24..1d3b12fa75 100644
--- 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 ;