gc bugs: incorrect struct init function assignments.

* struct.c (struct_set_initfun, struct_set_postinitfun):
Replace incorrect direct assignments with set macro.
This manifested itself as corruption. I ran into a situation
in which the postinitfun of a struct type was prematurely
reclaimed and the heap object was re-used for something else
wreaking havoc on the postinit call when the struct was
instantiated.

1 files changed, 2 insertions, 2 deletions

diff --git a/struct.c b/struct.c
index 8c104d08..5f614af2 100644
--- a/struct.c
+++ b/struct.c
@@ -406,7 +406,7 @@ val struct_get_initfun(val type)
 val struct_set_initfun(val type, val fun)
 {
   struct struct_type *st = stype_handle(&type, lit("struct-set-initfun"));
-  st->initfun = fun;
+  set(mkloc(st->initfun, type), fun);
   return fun;
 }
 
@@ -419,7 +419,7 @@ val struct_get_postinitfun(val type)
 val struct_set_postinitfun(val type, val fun)
 {
   struct struct_type *st = stype_handle(&type, lit("struct-set-postinitfun"));
-  st->postinitfun = fun;
+  set(mkloc(st->postinitfun, type),  fun);
   return fun;
 }