nth-when ( index/f seq -- elt/f )

Vocabulary

euler.b-rep.examples

Inputs

index/f	an object
seq	an object

Outputs

elt/f

an object

Definition

USING: kernel sequences ;

IN: euler.b-rep.examples

: nth-when ( index/f seq -- elt/f )
    over [ nth ] [ 2drop f ] if ; inline