only call dispose-each once

2009-10-21 13:07:31 -05:00 · 2009-10-21 13:07:31 -05:00 · b34bfe563e
parent a4a687ab32
commit b34bfe563e
1 changed files with 2 additions and 4 deletions
--- 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