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

2009-10-21 12:32:51 -05:00 · 2009-10-21 12:32:51 -05:00 · a4a687ab32
parent 5b4c1aea5d
commit a4a687ab32
1 changed files with 7 additions and 0 deletions
--- 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