From 52fab586be9b71396e521bf4b1c8cc3703826e93 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 14 Sep 2012 12:07:56 -0700
Subject: [PATCH] heaps: inline heap-size also.
---
basis/heaps/heaps.factor | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 6eb4bf226a..f103c25659 100644
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -22,7 +22,8 @@ TUPLE: heap { data vector } ;
TUPLE: entry value key heap index ;
-: <entry> ( value key heap -- entry ) f entry boa ; inline
+: <entry> ( value key heap -- entry )
+ f entry boa ; inline
PRIVATE>
@@ -38,7 +39,7 @@ M: heap heap-empty? ( heap -- ? )
data>> empty? ; inline
M: heap heap-size ( heap -- n )
- data>> length ;
+ data>> length ; inline
<PRIVATE