diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor index db275b0741..170e33595d 100644 --- a/basis/heaps/heaps.factor +++ b/basis/heaps/heaps.factor @@ -198,5 +198,5 @@ ERROR: not-a-heap obj ; : >min-heap ( assoc -- min-heap ) [ heap-push-all ] keep ; -: >max-heap ( assoc -- min-heap ) +: >max-heap ( assoc -- max-heap ) [ heap-push-all ] keep ;