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, 10 insertions, 0 deletions

diff --git a/tests/012/oop.tl b/tests/012/oop.tl
index 52fe30bb..34808af2 100644
--- a/tests/012/oop.tl
+++ b/tests/012/oop.tl
@@ -43,6 +43,16 @@
 (mapcar (umeth print *stdout*) (list (new collie) (new dog)))
 (put-line)
 
+(let* ((ssl (gun (make-string-output-stream)))
+       (s1 (pop ssl))
+       (s2 (pop ssl))
+       (s3 (pop ssl))
+       (d (new collie)))
+  [(meth d print s1)]
+  [(meth d print s2)]
+  [(meth d print s3)]
+  (tprint [mapcar get-string-from-stream (list s1 s2 s3)]))
+
 (defstruct b nil
   (:instance a 1)
   (:instance b 2)