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

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 87e7176ba8950e6a1be388cc9d946c14020a6f93..b92bfe36687087cc668f8ca19fe2f674acb2e038 100644 (file)
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -180,7 +180,9 @@ M: heap heap-delete
     ] if ;
 
 : >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> [ heap-push-all ] keep ;
+    dup assoc-size <vector> max-heap boa
+    [ heap-push-all ] keep ;