heaps: Add >min-heap, >max-heap.

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index 049b27d058cb43f4f0e76db98e36d16ae52bb524..6193d9fa2c41afaa4a79c59b4c8ba580cbc6e517 100644 (file)
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -194,3 +194,9 @@ ERROR: not-a-heap obj ;
     [ check-heap ] dip over heap-empty? [ 2drop ] [
         [ [ heap-pop drop ] dip call ] [ slurp-heap ] 2bi
     ] if ; inline recursive
+
+: >min-heap ( assoc -- min-heap )
+    <min-heap> [ heap-push-all ] keep ;
+
+: >max-heap ( assoc -- min-heap )
+    <max-heap> [ heap-push-all ] keep ;