diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-12-09 06:51:49 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-12-09 06:51:49 -0800 |
| commit | ca77d171b8155212d8c95341b2aad6f97d970659 (patch) | |
| tree | 437ed10b44990bc6aec640e01fdef011f32cf351 | |
| parent | 602555a3178f8fa46ef68d162509717dc82ed1c0 (diff) | |
| download | txr-ca77d171b8155212d8c95341b2aad6f97d970659.tar.gz txr-ca77d171b8155212d8c95341b2aad6f97d970659.tar.bz2 txr-ca77d171b8155212d8c95341b2aad6f97d970659.zip | |
defmeth returns compound method name.
* share/txr/stdlib/struct.tl (sys:defmeth): Return
compound method name as return value: (meth <type> <name>).
| -rw-r--r-- | share/txr/stdlib/struct.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |