Vocabulary
pairs

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


Outputs
None

Definition


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