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

diff --git a/struct.h b/struct.h
index 481ca679..09bf6767 100644
--- a/struct.h
+++ b/struct.h
@@ -65,6 +65,7 @@ val static_slot_p(val type, val sym);
 val slots(val stype);
 val structp(val obj);
 val struct_type(val strct);
+val struct_type_name(val stype);
 val method(val strct, val slotsym);
 val method_args(val strct, val slotsym, struct args *);
 val super_method(val strct, val slotsym);