From b34bfe563e0ca001a61c99bd934bab96498feb92 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 21 Oct 2009 13:07:31 -0500
Subject: [PATCH] only call dispose-each once

---
 core/destructors/destructors.factor | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index afe40d861c..1f640beddb 100644
--- a/core/destructors/destructors.factor
+++ b/core/destructors/destructors.factor
@@ -93,8 +93,6 @@ PRIVATE>
     ] with-scope ; inline
 
 [
-    [
-        always-destructors get-global dispose-each
-        error-destructors get-global dispose-each
-    ] with-destructors
+    always-destructors get-global
+    error-destructors get-global append dispose-each
 ] "destructors.global" add-shutdown-hook