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

Vocabulary

pairs

Inputs

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

Outputs

None

Definition

USING: accessors kernel ;

IN: pairs

: if-hash ( pair true-quot false-quot -- )
    [ hash>> ] -rot ?if ; inline