From a4a687ab32b3f8df4a36c8139a344ec2fb8b2e1a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 21 Oct 2009 12:32:51 -0500
Subject: [PATCH] clean up global destructors as a shutdown hook in case exit
 is called

---
 core/destructors/destructors.factor | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/core/destructors/destructors.factor b/core/destructors/destructors.factor
index 7b10a75212..afe40d861c 100644
--- 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