oop: new function: struct-type-name.

* struct.c (struct_init): Register struct-type-name intrinsic.
(struct_type_name): New function.

* struct.h (struct_type_name): Declared.

* txr.1: Documented.

1 files changed, 14 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index bec5e75b..30717b5e 100644
--- a/txr.1
+++ b/txr.1
@@ -24994,6 +24994,20 @@ A structure type is an object of type
 returned by
 .codn find-struct-type .
 
+.coNP Function @ struct-type-name
+.synb
+.mets (struct-type-name << type )
+.syne
+.desc
+The
+.code struct-type-name
+function returns the symbol which serves as the name of
+.metn type ,
+which must be either a struct type object (such as the return value of
+a successful lookup via
+.codn find-struct-type ),
+or else a struct type name.
+
 .coNP Function @ super
 .synb
 .mets (super << type )