Support curried args in method and meth.

* share/txr/stdlib/struct.tl (meth): Take trailing arguments
and pass them down to method, which now accepts them.

* struct.c (struct_init): Register method intrinsic to the
function method_args instead of the method function.
(method_args_fun): New static function.
(method_args): New function. Behaves like method
function if args is empty, otherwise creates a function
by means of method_args_fun.

* struct.h (method_args_fun): Declared.

* tests/012/oop.tl: New test case.

* tests/012/oop.expected: Updated.

* txr.1: Documented new features in method and
meth, revising the documentation in the process.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 5d116807..2e3d32cb 100644
--- a/struct.h
+++ b/struct.h
@@ -50,6 +50,7 @@ val static_slot_p(val type, val sym);
 val structp(val obj);
 val struct_type(val strct);
 val method(val strct, val slotsym);
+val method_args(val strct, val slotsym, struct args *);
 val super_method(val strct, val slotsym);
 val uslot(val slot);
 val umethod(val slot, struct args *);