valist-at ( key i array -- value ? )

Vocabulary

vlists

Inputs

key	an object
i	an object
array	an object

Outputs

value	an object
?	an object

Definition

USING: kernel math sequences.private ;

IN: vlists

: valist-at ( key i array -- value ? )
    over 0 >= [
        3dup nth-unsafe =
        [ [ 1 + ] dip nth-unsafe nip t ]
        [ [ 2 - ] dip valist-at ] if
    ] [ 3drop f f ] if ; inline recursive