oop: derived hook.

* struct.c (derived_s): New symbol variable.
(struct_init): Initialize derived_s symbol.
(make_struct_type): Check for derived method in parent, and
invoke.

* struct.h (derived_s): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/struct.h b/struct.h
index 09bf6767..d67ce3d7 100644
--- a/struct.h
+++ b/struct.h
@@ -27,7 +27,7 @@
 
 extern val struct_type_s, meth_s, print_s, make_struct_lit_s;
 extern val init_k, postinit_k;
-extern val slot_s;
+extern val slot_s, derived_s;
 extern struct cobj_ops struct_inst_ops;
 val make_struct_type(val name, val super,
                      val static_slots, val slots,