register-disposable ( obj -- )

Vocabulary

destructors.private

Inputs

obj

an object

Outputs

None

Definition

USING: accessors continuations destructors kernel namespaces
sets ;

IN: destructors.private

: register-disposable ( obj -- )
    debug-leaks? get-global
    [ current-continuation >>continuation ] when
    disposables get adjoin ;