diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-24 21:59:53 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-24 21:59:53 +0200 |
| commit | ba807137c9ec4b1cc4e2328dee4a83a0350114a9 (patch) | |
| tree | 23b0f766cf6e681c284d2e8bcf044de8c98e7909 /modules/oop | |
| parent | 6e22a121560613fb9074c26808f795feac548f18 (diff) | |
import f as g etc now works
Diffstat (limited to 'modules/oop')
| -rw-r--r-- | modules/oop/pf-objects.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index cb4d3c6..e50073f 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -162,13 +162,13 @@ explicitly tell it to not update etc. (define not-implemented (cons 'not 'implemeneted)) (define-syntax-rule (mrefx-py- x key l) - (let ((f (mrefx- x '__ref__ '()))) + (let ((f (mrefx- x '__getattribute__ '()))) (if (or (not f) (eq? f not-implemented)) (mrefx- x key l) (apply f x key l)))) (define-syntax-rule (mrefx-py x key l) - (let ((f (mrefx x '__ref__ '()))) + (let ((f (mrefx x '__getattribute__ '()))) (if (or (not f) (eq? f not-implemented)) (mrefx x key l) (apply f x key l)))) @@ -249,7 +249,7 @@ explicitly tell it to not update etc. (values)))) (define-syntax-rule (mset-py x key val) - (let ((f (mref-py x '__set__ '()))) + (let ((f (mref-py x '__setattr__ '()))) (if (or (eq? f not-implemented) (not f)) (mset x key val) (f key val)))) @@ -286,7 +286,7 @@ explicitly tell it to not update etc. (values)))) (define-syntax-rule (mset-py- x key val) - (let ((f (mref-py- x '__set__ '()))) + (let ((f (mref-py- x '__setattr__ '()))) (if (or (eq? f not-implemented) (not f)) (mset- x key val) (f key val)))) |