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, 18 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 092e1469..ba079edc 100644
--- a/txr.1
+++ b/txr.1
@@ -18727,6 +18727,24 @@ function returns the structure type object which
 defines the type of the structure object
 .metn struct-obj .
 
+.coNP Function @ clear-struct
+.synb
+.mets (clear-struct < struct-obj <> [ value ])
+.syne
+.desc
+The
+.code clear-struct
+replaces all instance slots of
+.meta struct-obj
+with
+.metn value ,
+which defaults to
+.code nil
+if omitted.
+
+Note that finalizers are not executed prior to replacing
+the slot values.
+
 .coNP Function @ method
 .synb
 .mets (method < struct-obj << slot-name )