From ca77d171b8155212d8c95341b2aad6f97d970659 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 9 Dec 2015 06:51:49 -0800 Subject: defmeth returns compound method name. * share/txr/stdlib/struct.tl (sys:defmeth): Return compound method name as return value: (meth ). --- share/txr/stdlib/struct.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'share') diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index ee281168..189785fc 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -214,7 +214,7 @@ (unless type (throwf 'eval-error "~s: ~s isn't a struct type" 'defmeth type-sym)) (static-slot-ensure type-sym name fun) - name)) + ^(meth ,type-sym ,name))) (defmacro defmeth (type-sym name arglist . body) ^(sys:defmeth ',type-sym ',name (lambda ,arglist -- cgit v1.2.3