OOP: bugfix: lazy object uninitialized dirty flag.

* struct.c (make_lazy_struct): Initialize dirty flag to 1,
as required by the documentation, since all newly instantiated
objects are dirty.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.c b/struct.c
index 04b5ee7d..dc427cf3 100644
--- a/struct.c
+++ b/struct.c
@@ -898,6 +898,7 @@ val make_lazy_struct(val type, val argfun)
   si->type = st;
   si->id = st->id;
   si->lazy = 1;
+  si->dirty = 1;
 
   sinst = cobj(coerce(mem_t *, si), st->name, &struct_inst_ops);