From d2e883cf32ea9fa82f33768104bc5993bfc60a04 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Nov 2015 06:11:09 -0800
Subject: 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.
---
 struct.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'struct.h')

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);
-- 
cgit v1.2.3