From b135b956a7d69877de18ef052f8f6e0d1af0d296 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 4 Sep 2012 15:46:41 -0700
Subject: [PATCH] sequences: less bounds checking in binary-reduce.
---
core/sequences/sequences.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 2d0a81b8e7..3b37f1fcc8 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -867,9 +867,9 @@ PRIVATE>
pick length dup 0 3 between? [
integer>fixnum {
[ drop nip ]
- [ 2drop first ]
- [ [ drop first2 ] dip call ]
- [ [ drop first3 ] dip bi@ ]
+ [ 2drop first-unsafe ]
+ [ [ drop first2-unsafe ] dip call ]
+ [ [ drop first3-unsafe ] dip bi@ ]
} dispatch
] [
drop