New function: clear-struct.

* struct.c (clear_struct): New function.
(struct_init): Register clear-struct intrinsic.

* struct.h (struct_init): Declared.

* txr.1: documented clear-struct.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index bb48a2b3..1b1543ba 100644
--- a/struct.h
+++ b/struct.h
@@ -32,6 +32,7 @@ val struct_type_p(val obj);
 val super(val type);
 val make_struct(val type, val plist, struct args *);
 val copy_struct(val strct);
+val clear_struct(val strct, val value);
 val find_struct_type(val sym);
 val slot(val strct, val sym);
 val slotset(val strct, val sym, val newval);