tools.destructors: leaks now tracks leaks globally

diff --git a/basis/tools/destructors/destructors.factor b/basis/tools/destructors/destructors.factor
index d032b5291a0c2d8bee65fcc8839b3b3cd76a6096..c0aa35b049d2842de868d710c69ed0156f43af5c 100644 (file)
--- a/basis/tools/destructors/destructors.factor
+++ b/basis/tools/destructors/destructors.factor
@@ -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

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 4190cdaaf5f447a7bbc875c98e6032a5c75fefbd..3e57f498af6698f28ecd111d60388eafc0982cd9 100644 (file)
--- a/core/destructors/destructors.factor
+++ b/core/destructors/destructors.factor
@@ -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 -- )