clean up global destructors as a shutdown hook in case exit is called

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 7b10a752122c72cc92babb600dcf52fb318fe7c4..afe40d861c823dbe03d188810f03973fc8158314 100644 (file)
--- a/core/destructors/destructors.factor
+++ b/core/destructors/destructors.factor
@@ -91,3 +91,10 @@ PRIVATE>
         [ do-error-destructors ]
         cleanup
     ] with-scope ; inline
+
+[
+    [
+        always-destructors get-global dispose-each
+        error-destructors get-global dispose-each
+    ] with-destructors
+] "destructors.global" add-shutdown-hook