sequences: make nth3-unsafe simpler.

2012-09-05 10:52:44 -07:00 · 2012-09-05 10:52:44 -07:00 · e36c76cadf
parent 00a9fcbc85
commit e36c76cadf
1 changed files with 1 additions and 4 deletions
--- 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