summaryrefslogtreecommitdiff
path: root/modules/language/python/module.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/module.scm')
-rw-r--r--modules/language/python/module.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm
index 101f62e..3453a25 100644
--- a/modules/language/python/module.scm
+++ b/modules/language/python/module.scm
@@ -135,7 +135,7 @@
(rawset self '_module _module)
(hash-set! _modules l self))))))
- (define __getattr__
+ (define __getattribute__
(lambda (self k)
(define (fail)
(raise (AttributeError "getattr in Module")))
@@ -149,7 +149,7 @@
(define __setattr__
(lambda (self k v)
(let ((k (_k k))
- (fail (lambda () (raise KeyError "getattr in Module" k))))
+ (fail (lambda () (raise KeyError "setattr in Module" k))))
(if (rawref self k)
(fail)
(aif m (rawref self '_module)
@@ -163,7 +163,7 @@
(define __delattr__
(lambda (self k)
- (define (fail) (raise KeyError "getattr in Module"))
+ (define (fail) (raise KeyError "delattr in Module"))
(aif m (rawref self '_module)
(let ((k (_k k)))
(if (module-defined? m k)
@@ -188,7 +188,7 @@
(define __getitem__
(lambda (self k)
(define k (if (string? k) (string->symbol k) k))
- (__getattr__ self k)))
+ (__getattribute__ self k)))
(define __iter__
(lambda (self)