From 2d173febd859a05708e14273397df61f75bea895 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 9 Oct 2016 19:08:02 -0700 Subject: 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. --- struct.h | 1 + 1 file changed, 1 insertion(+) (limited to 'struct.h') 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 *); -- cgit v1.2.3