unless-disposed ( disposable quot -- )

Vocabulary

destructors

Inputs

disposable	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: destructors

: unless-disposed ( disposable quot -- )
    [ dup disposed>> [ drop ] ] dip if ; inline