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

heaps: correctly size the data vector for >min-heap and >max-heap.

db4
John Benediktsson 2014-12-15 13:29:01 -08:00
parent 2a893a110a
commit c6ee627e1b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/heaps/heaps.factor
View File

@ -180,7 +180,9 @@ M: heap heap-delete
] if ; ] if ;
: >min-heap ( assoc -- min-heap ) : >min-heap ( assoc -- min-heap )
<min-heap> [ heap-push-all ] keep ; dup assoc-size <vector> min-heap boa
[ heap-push-all ] keep ;
: >max-heap ( assoc -- max-heap ) : >max-heap ( assoc -- max-heap )
<max-heap> [ heap-push-all ] keep ; dup assoc-size <vector> max-heap boa
[ heap-push-all ] keep ;