base-index ( value bases -- i )

Vocabulary

compression.deflate.private

Inputs

value	an object
bases	an object

Outputs

i

an object

Definition

USING: kernel math sequences ;

IN: compression.deflate.private

:: base-index ( value bases -- i )
    bases [ value <= ] find-last drop ;