steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/heaps/heaps.factor
View File

@ -22,7 +22,8 @@ TUPLE: heap { data vector } ;
TUPLE: entry value key heap index ; 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> PRIVATE>
@ -38,7 +39,7 @@ M: heap heap-empty? ( heap -- ? )
data>> empty? ; inline data>> empty? ; inline
M: heap heap-size ( heap -- n ) M: heap heap-size ( heap -- n )
data>> length ; data>> length ; inline
<PRIVATE <PRIVATE