From 1f049a3ed98930096bc6e49a7dbea82e03efd36a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 27 Aug 2020 07:26:55 -0700
Subject: 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.
---
 struct.c | 1 +
 1 file changed, 1 insertion(+)

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);
 
-- 
cgit v1.2.3