heaps: inline heap-size also.

db4
John Benediktsson 2012-09-14 12:07:56 -07:00
parent 2422490f86
commit 52fab586be
1 changed files with 3 additions and 2 deletions

View File

@ -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