diff options
Diffstat (limited to 'modules/oop/pf-objects.scm')
| -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)))) |