if-key ( key pair true-quot false-quot -- )

Vocabulary

pairs

Inputs

key	an object
pair	an object
true-quot	an object
false-quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: pairs

: if-key ( key pair true-quot false-quot -- )
    [ [ 2dup key>> eq? ] dip [ nip ] prepose ] dip if ; inline