Fix broken finalization support.

* gc.c (call_finals): Correct inverted test for reachability.
The function was processing entries that are still reachable
and calling their finalizers, and retaining unreachable
entries in the finalization list.

1 files changed, 1 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index d524c984..f17a4b47 100644
--- a/gc.c
+++ b/gc.c
@@ -639,7 +639,7 @@ static void call_finals(void)
   for (f = old_list; f; f = next) {
     next = f->next;
 
-    if ((f->obj_type & REACHABLE) != 0) {
+    if ((f->obj_type & REACHABLE) == 0) {
       funcall1(f->fun, f->obj);
       free(f);
     } else {