func-get-name calculates a name for methods.

* eval.c (func_get_name): Use try to use new method_name
function, if unable to get name from the lexical or
global environment for functions.

* struct.c (meth_s): New symbol variable.
(struct_init): Initialize meth_s variable.
(method_name): New function.

* struct.h (method_name): Declared.

* txr.1: Re-documented func-get-name.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 3d5b1942..f0dacaf7 100644
--- a/struct.h
+++ b/struct.h
@@ -50,4 +50,5 @@ val method(val strct, val slotsym);
 val super_method(val strct, val slotsym);
 val uslot(val slot);
 val umethod(val slot);
+val method_name(val fun);
 void struct_init(void);