assoc-stack-from ( key i seq -- value/f )

Vocabulary

assocs.private

Inputs

key	an object
i	an object
seq	an object

Outputs

value/f

an object

Definition

USING: assocs kernel math sequences.private ;

IN: assocs.private

: assoc-stack-from ( key i seq -- value/f )
    over 0 <
    [ 3drop f ] [
        3dup nth-unsafe at*
        [ 3nip ] [ drop [ 1 - ] dip assoc-stack-from ] if
    ] if ; inline recursive