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

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