mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

Removed unnecessary uses of class destructors.

Browse source 
* libguile/goops.c (scm_sys_inherit_magic_x): Don't invoke
  `SCM_SET_CLASS_DESTRUCTOR' for legacy destructors that are no longer
  needed (e.g., `scm_struct_free_entity ()', etc.).

* libguile/objects.c (scm_init_objects): Likewise.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-34
This commit is contained in:
Ludovic Courtes 2006-05-30 21:56:55 +00:00 • committed by Ludovic Courtès
parent 5e67dc27e3
commit 077644c8a4
2 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/objects.c
View file

@ -346,7 +346,6 @@ scm_init_objects ()
scm_c_define ("<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_c_define ("<entity>", et);
#include "libguile/objects.x"