unless-disposed ( ... disposable quot: ( ... disposable -- ... ) -- ... )

Vocabulary

destructors

Inputs

disposable	an object
quot	a quotation with stack effect ( ... disposable -- ... )

Outputs

None

Definition

USING: kernel ;

IN: destructors

: unless-disposed
    ( ... disposable quot: ( ... disposable -- ... ) -- ... )
    [ ] swap if-disposed ; inline