mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* objects.c (scm_init_objects): Initialize destructor slot of the

Browse source 
primordial entity class.
This commit is contained in:
Mikael Djurfeldt 1999-06-23 11:16:28 +00:00
parent d6af5a438b
commit 135e76f876
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/objects.c
View file

@ -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"