heaps: fix stack effect for >max-heap.

db4
John Benediktsson 2014-06-10 17:18:37 -07:00
parent fba9c1dab4
commit c20838117d
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;