find-interval ( key interval-map -- interval-node )

Vocabulary

interval-maps.private

Inputs

key	an object
interval-map	an object

Outputs

interval-node

an object

Definition

USING: accessors binary-search kernel math.order
sequences.private ;

IN: interval-maps.private

: find-interval ( key interval-map -- interval-node )
    array>> [ first-unsafe <=> ] with search nip ; inline