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.

1 files changed, 1 insertions, 1 deletions

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);