diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-13 23:22:09 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-13 23:22:09 +0200 |
| commit | 1ff54d35de490b997c498721902dfdb6fe917089 (patch) | |
| tree | 41174df6fa6175dd3f5cde33b24e9d9db5e0e62d /modules/language/python/dict.scm | |
| parent | 6d5d8c93b6732d5264599547f6c2eb38819e6589 (diff) | |
bytes and string musings
Diffstat (limited to 'modules/language/python/dict.scm')
| -rw-r--r-- | modules/language/python/dict.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/dict.scm b/modules/language/python/dict.scm index 1161580..1d825b6 100644 --- a/modules/language/python/dict.scm +++ b/modules/language/python/dict.scm @@ -210,17 +210,17 @@ (begin (define-method (nm (o class) l ...) code ...) ... - (define-method (nm (o <p>) l ...) + (define-method (nm (o <p>) . v) (aif it (ref o 'n) - (it l ...) + (apply it v) (next-method))))) ((_ (nm n o l ... . u) (class code ...) ...) (begin (define-method (nm (o class) l ... . u) code ...) ... - (define-method (nm (o <p>) l ... . u) + (define-method (nm (o <p>) . v) (aif it (ref o 'n) - (apply it l ... u) + (apply it v) (next-method))))))) |