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> [ heap-push-all ] keep ;
|
||||
|
||||
: >max-heap ( assoc -- min-heap )
|
||||
: >max-heap ( assoc -- max-heap )
|
||||
<max-heap> [ heap-push-all ] keep ;
|
||||
|
|
Loading…
Reference in New Issue