check-box ( box -- box )


Vocabulary
boxes

Inputs
boxan object


Outputs
boxan object


Definition
USING: accessors kernel ;

IN: boxes

: check-box ( box -- box )
dup occupied>> [ box-empty ] unless ; inline