From e36c76cadfb288bd76a731709ff8d2ccd7a25cc6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 5 Sep 2012 10:52:44 -0700
Subject: [PATCH] sequences: make nth3-unsafe simpler.

---
 core/sequences/sequences.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 818adc7285..bd01a3bf79 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -865,10 +865,7 @@ PRIVATE>
     [ nth-unsafe ] [ [ 1 + ] dip nth-unsafe ] 2bi ; inline
 
 : nth3-unsafe ( n seq -- a b c )
-    [ nth-unsafe ]
-    [ [ 1 + ] dip nth-unsafe ]
-    [ [ 2 + ] dip nth-unsafe ]
-    2tri ; inline
+    [ nth2-unsafe ] [ [ 2 + ] dip nth-unsafe ] 2bi ; inline
 
 : (binary-reduce) ( ... seq start quot: ( ... elt1 elt2 -- ... newelt ) from to -- ... value )
     #! We can't use case here since combinators depends on