interval-maps: some inline.

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