tools.destructors: leaks now tracks leaks globally
parent
a2529717ba
commit
e44a0158e6
|
@ -44,8 +44,8 @@ PRIVATE>
|
|||
|
||||
: leaks ( quot -- )
|
||||
disposables get clone
|
||||
debug-leaks? on
|
||||
t debug-leaks? set-global
|
||||
[
|
||||
[ call disposables get clone ] dip
|
||||
] [ ] [ debug-leaks? off ] cleanup
|
||||
] [ ] [ f debug-leaks? set-global ] cleanup
|
||||
assoc-diff (disposables.) ; inline
|
||||
|
|
|
@ -17,7 +17,7 @@ SYMBOL: debug-leaks?
|
|||
SLOT: continuation
|
||||
|
||||
: register-disposable ( obj -- )
|
||||
debug-leaks? get [ continuation >>continuation ] when
|
||||
debug-leaks? get-global [ continuation >>continuation ] when
|
||||
disposables get conjoin ;
|
||||
|
||||
: unregister-disposable ( obj -- )
|
||||
|
|
Loading…
Reference in New Issue