interval-sets: faster find-interval.

diff --git a/basis/interval-sets/interval-sets.factor b/basis/interval-sets/interval-sets.factor
index 4fdcfc3634069f8c5d2f2c563bdc3276ff6f1649..c547b874837241705ab8f062d098fc5f1271db07 100644 (file)
--- a/basis/interval-sets/interval-sets.factor
+++ b/basis/interval-sets/interval-sets.factor
@@ -15,8 +15,9 @@ ALIAS: start first-unsafe
 ALIAS: end second-unsafe
 
 : find-interval ( key interval-set -- slice )
-    array>> 2 <groups>
-    [ start <=> ] with search nip ; inline
+    array>> swap dupd [ >=< ] curry search drop
+    [ dup even? [ dup 1 + ] [ [ 1 - ] keep ] if rot <slice-unsafe> ]
+    [ drop f ] if* ; inline
 
 ERROR: not-an-interval-set obj ;
 
@@ -46,7 +47,7 @@ PRIVATE>
             drop dup first2 <
             [ unclip-slice , ]
             [ 2 tail-slice ] if
-            (delete-redundancies) 
+            (delete-redundancies)
         ]
     } case ;