only call dispose-each once

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index afe40d861c823dbe03d188810f03973fc8158314..1f640beddb20daeac46434a7b818a25708036f46 100644 (file)
--- 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