Useful assertion in make_obj.

* gc.c (make_obj): Assert that the object we are pulling
from the free list is marked FREE.

1 files changed, 1 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index ab7eb7f8..f82ec5f0 100644
--- a/gc.c
+++ b/gc.c
@@ -184,6 +184,7 @@ val make_obj(void)
         VALGRIND_MAKE_MEM_DEFINED(free_list, sizeof *free_list);
 #endif
       free_list = free_list->t.next;
+      assert (ret->t.type & FREE);
 
       if (free_list == 0)
         free_tail = &free_list;