From 135e76f87692db5b0455267ed15bd448aec2bb75 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Wed, 23 Jun 1999 11:16:28 +0000
Subject: [PATCH] * objects.c (scm_init_objects): Initialize destructor slot of
 the primordial entity class.

---
 libguile/objects.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/objects.c b/libguile/objects.c
index 235aaabc8..245d042d8 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -380,6 +380,7 @@ scm_init_objects ()
   scm_sysintern ("<operator-class>", ot);
   scm_metaclass_operator = ot;
   SCM_SET_CLASS_FLAGS (et, SCM_CLASSF_OPERATOR | SCM_CLASSF_ENTITY);
+  SCM_SET_CLASS_DESTRUCTOR (et, scm_struct_free_entity);
   scm_sysintern ("<entity>", et);
 
 #include "objects.x"