From 889eb9b2ef27ea470fde8ab510d4d7c28549e649 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 18 May 2014 20:41:51 -0700
Subject: [PATCH] interval-maps: some inline.

---
 basis/interval-maps/interval-maps.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index bb6686ce24..0b63f2815b 100644
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -44,9 +44,9 @@ PRIVATE>
     [ nip ] [ interval-contains? ] 2bi
     [ value t ] [ drop f f ] if ; inline
 
-: interval-at ( key map -- value ) interval-at* drop ;
+: interval-at ( key map -- value ) interval-at* drop ; inline
 
-: interval-key? ( key map -- ? ) interval-at* nip ;
+: interval-key? ( key map -- ? ) interval-at* nip ; inline
 
 : interval-values ( map -- values )
     check-interval-map array>> [ value ] map ;