if-box? ( box quot: ( value -- ) -- )

Vocabulary

boxes

Inputs

box	an object
quot	a quotation with stack effect ( value -- )

Outputs

None

Definition

USING: kernel ;

IN: boxes

: if-box? ( box quot: ( value -- ) -- )
    [ ?box ] dip [ drop ] if ; inline