From e8f6f8d3aa516b4154dd9832bf50de82ddb07840 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Nov 2015 07:43:00 -0800
Subject: defun can define methods.

* eval.c (op_defun): Handle (meth type name) syntax
in place of name via sys:defmeth function, which
is dynamically resolved and autoloaded as necessary.
(builtin_reject_test): When defun is being checked,
recognize a (method ...) form and allow it.

* struct.h (meth_s): Declaration added.

* txr.1: Documented new defun capability.
---
 struct.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'struct.h')

diff --git a/struct.h b/struct.h
index f0dacaf7..c5c9d193 100644
--- a/struct.h
+++ b/struct.h
@@ -24,7 +24,7 @@
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
-extern val struct_type_s;
+extern val struct_type_s, meth_s;
 val make_struct_type(val name, val super,
                      val static_slots, val slots,
                      val static_initfun, val initfun, val boactor);
-- 
cgit v1.2.3