steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.destructors: leaks now tracks leaks globally

Slava Pestov 2009-08-24 20:45:06 -05:00
parent 4c758c4306
commit 5a2c662622
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/destructors/destructors.factor
View File

@ -44,8 +44,8 @@ PRIVATE>
: leaks ( quot -- ) : leaks ( quot -- )
disposables get clone disposables get clone
debug-leaks? on t debug-leaks? set-global
[ [
[ call disposables get clone ] dip [ call disposables get clone ] dip
] [ ] [ debug-leaks? off ] cleanup ] [ ] [ f debug-leaks? set-global ] cleanup
assoc-diff (disposables.) ; inline assoc-diff (disposables.) ; inline

2
core/destructors/destructors.factor
View File

@ -17,7 +17,7 @@ SYMBOL: debug-leaks?
SLOT: continuation SLOT: continuation
: register-disposable ( obj -- ) : register-disposable ( obj -- )
debug-leaks? get [ continuation >>continuation ] when debug-leaks? get-global [ continuation >>continuation ] when
disposables get conjoin ; disposables get conjoin ;
: unregister-disposable ( obj -- ) : unregister-disposable ( obj -- )