entry>index ( entry heap -- n )

Vocabulary
heaps

Definition

USING: accessors kernel kernel.private math ;

IN: heaps

: entry>index ( entry heap -- n )
    over heap>> eq? [ bad-heap-delete ] unless index>>
    { fixnum } declare ; inline