gc: code improvment in finalizer calling.

* gc.c (call_finalizers_impl): We don't have to null out the
next pointer of the finalization entry in the loop and note
that we are not doing this for the nodes that are going back
into final_list. Rather, we null-terminate the found list at
the end of the loop, just like we do with the final list.

1 files changed, 1 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index c2a4f657..974cefde 100644
--- a/gc.c
+++ b/gc.c
@@ -766,7 +766,6 @@ static val call_finalizers_impl(val ctx,
       if (should_call(f, ctx)) {
         *ftail = f;
         ftail = &f->next;
-        f->next = 0;
       } else {
         *tail = f;
         tail = &f->next;
@@ -775,6 +774,7 @@ static val call_finalizers_impl(val ctx,
       f = next;
     }
 
+    *ftail = 0;
     *tail = 0;
     final_tail = tail;