entry>index ( entry heap -- n )

Vocabulary

heaps.private

Inputs

entry	an object
heap	an object

Outputs

n

an object

Definition

USING: accessors heaps kernel kernel.private math ;

IN: heaps.private

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