From 0af7e323d67b3f90439fc6347d605e5173903a53 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 24 Aug 2012 14:37:46 -0700
Subject: [PATCH] interval-maps: allow interval-at and interval-key? to
 optimize better...

---
 basis/interval-maps/interval-maps.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index 36b3464785..a2b72f9180 100644
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -36,7 +36,7 @@ PRIVATE>
 : interval-at* ( key map -- value ? )
     [ drop ] [ find-interval ] 2bi
     [ nip ] [ interval-contains? ] 2bi
-    [ value t ] [ drop f f ] if ;
+    [ value t ] [ drop f f ] if ; inline
 
 : interval-at ( key map -- value ) interval-at* drop ;