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


Vocabulary
pairs

Inputs and outputs
keyan object
pairan object
true-quotan object
false-quotan object


Definition


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