New super-method function.

* struct.c (struct_init): Register super-method.
(super_method): New function.

* struct.h (super_method): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 1 deletions

diff --git a/struct.h b/struct.h
index d0bc9c85..7e4009c3 100644
--- a/struct.h
+++ b/struct.h
@@ -41,5 +41,6 @@ val slot_p(val type, val sym);
 val static_slot_p(val type, val sym);
 val structp(val obj);
 val struct_type(val strct);
-val method(val strct, val obj);
+val method(val strct, val slotsym);
+val super_method(val strct, val slotsym);
 void struct_init(void);