Summary
persistent.heaps.private vocabulary

Words

Tuple classes
ClassSuperclassSlots
branch tuplevalue prio left right
empty-heap tuple


Predicate classes
ClassSuperclass
singleton-heap branch


Generic words
WordStack effect
sift-down( value prio left right -- heap )


Ordinary words
WordStack effect
<branch>( value prio left right -- branch )
>branch<( branch -- value prio left right )
both-with?( obj a b quot -- ? )
push-in( value prio heap -- newheap )
push-top( value prio heap -- newheap )
remove-left( heap -- value prio newheap )
reroot-left( value prio left right -- heap )
reroot-right( value prio left right -- heap )
singleton-sift-down( value prio singleton empty -- heap )


Class predicate words
WordStack effect
branch?( object -- ? )
empty-heap?( object -- ? )
singleton-heap?( object -- ? )