leaks ( quot -- disposables )

Vocabulary

tools.destructors

Inputs

quot	a quotation

Outputs

disposables

a sequence

Word description

Runs the quotation and collects all disposables leaked by it. Used by leaks..

Definition

USING: continuations destructors kernel namespaces sets ;

IN: tools.destructors

: leaks ( quot -- disposables )
    disposables get clone t debug-leaks? set-global
    [ [ call disposables get clone ] dip ]
    [ f debug-leaks? set-global ] finally diff ; inline