tools.memory: move invariant code to cleanup-always quot of the cleanup

2016-05-31 13:07:20 +03:00 · 2016-05-31 13:07:20 +03:00 · b0c6f97bf5
parent e9454fc310
commit b0c6f97bf5
1 changed files with 2 additions and 2 deletions
--- a/basis/tools/memory/memory.factor
+++ b/basis/tools/memory/memory.factor
@ -101,8 +101,8 @@ PRIVATE>

 : collect-gc-events ( quot -- gc-events )
    enable-gc-events
-    [ ] [ disable-gc-events drop ] cleanup
-    disable-gc-events [ gc-event memory>struct ] map ; inline
+    [ disable-gc-events ] [ drop ] cleanup
+    [ gc-event memory>struct ] map ; inline

 <PRIVATE