diff options
Diffstat (limited to 'modules/oop/pf-objects.scm')
| -rw-r--r-- | modules/oop/pf-objects.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index a1a5960..792a89a 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -351,7 +351,7 @@ explicitly tell it to not update etc. (gox xx (mrefx xx key l)) (catch #t (lambda () - (gox xx (f key))) + (f xx key)) (lambda x (gox xx (mrefx xx key l)))))))) @@ -969,17 +969,17 @@ explicitly tell it to not update etc. (o (make-p <p>))) (set c '__super__ #t) (set c '__mro__ parents) - (set c '__getattribute__ (lambda (self key . l) - (aif it (ref c key) - (if (procedure? it) - (if (eq? (procedure-property - it - 'py-special) - 'class) - (it cl) - (it obj)) - it) - (error "no attribute")))) + (set c '__getattribute__ (lambda (self key . l) + (aif it (ref c key) + (if (procedure? it) + (if (eq? (procedure-property + it + 'py-special) + 'class) + (it cl) + (it obj)) + it) + (error "no attribute")))) (set o '__class__ c) o))) |