tools.destructors: leaks now tracks leaks globally

db4
Slava Pestov 2009-08-24 20:45:06 -05:00
parent a2529717ba
commit e44a0158e6
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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 -- )