Introducing struct instance dirty flags.

* struct.c (struct struct_inst): New bitfield member, dirty.
(struct_init): Register test-dirty, test-clear-dirty and
clear-dirty intrinsics.
(make_struct): Initialize dirty flag to 1.
(slotset): If the object is clean, then determine whether
the slot being set is an instance slot. If so, then
set the dirty flag.
(test_dirty, test_clear_dirty, clear_dirty): New functions.

* struct.h (test_dirty, test_clear_dirty, clear_dirty):
Declared.

* txr.1: Documented dirty flags concept and new functions.

1 files changed, 3 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index ab3e7037..604015b3 100644
--- a/struct.h
+++ b/struct.h
@@ -46,6 +46,9 @@ val slotset(val strct, val sym, val newval);
 val static_slot(val stype, val sym);
 val static_slot_set(val stype, val sym, val newval);
 val static_slot_ensure(val stype, val sym, val newval, val no_error_p);
+val test_dirty(val strct);
+val test_clear_dirty(val strct);
+val clear_dirty(val strct);
 val slotp(val type, val sym);
 val static_slot_p(val type, val sym);
 val slots(val stype);