From b0c6f97bf50fabbcd3ec8a25a4c973c2d5136490 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Tue, 31 May 2016 13:07:20 +0300
Subject: [PATCH] tools.memory: move invariant code to cleanup-always quot of
 the cleanup

---
 basis/tools/memory/memory.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index d8e6921105..5358158aaf 100644
--- 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