interval-sets: can just check one side or the other.

diff --git a/basis/interval-sets/interval-sets.factor b/basis/interval-sets/interval-sets.factor
index 62f9b479698bb14e283803d9a3a8a1136daf68a2..6668a3c9102cc7ecbbc3261a9508964e5be33ade 100644 (file)
--- a/basis/interval-sets/interval-sets.factor
+++ b/basis/interval-sets/interval-sets.factor
@@ -20,9 +20,8 @@ PRIVATE>
 
 : in? ( key set -- ? )
     check-interval-set array>>
-    over dupd [ >=< ] curry search drop [
-        dup even? [ dup 1 + ] [ [ 1 - ] keep ] if rot
-        [ nth-unsafe ] curry bi@ 1 - between?
+    dupd [ <=> ] with search swap [
+        even? [ >= ] [ 1 - <= ] if
     ] [ 2drop f ] if* ;
 
 <PRIVATE