heaps: fix stack effect for >max-heap.
parent
fba9c1dab4
commit
c20838117d
|
@ -198,5 +198,5 @@ ERROR: not-a-heap obj ;
|
||||||
: >min-heap ( assoc -- min-heap )
|
: >min-heap ( assoc -- min-heap )
|
||||||
<min-heap> [ heap-push-all ] keep ;
|
<min-heap> [ heap-push-all ] keep ;
|
||||||
|
|
||||||
: >max-heap ( assoc -- min-heap )
|
: >max-heap ( assoc -- max-heap )
|
||||||
<max-heap> [ heap-push-all ] keep ;
|
<max-heap> [ heap-push-all ] keep ;
|
||||||
|
|
Loading…
Reference in New Issue