reverse forms implemented
[software/python-on-guile.git] / modules / language / python / module.scm
index 101f62e67294a0d03094409a3a53bc1a98c2aecc..3453a2513121baca48111acf92a353eee380a655 100644 (file)
              (rawset self '_module _module)
              (hash-set! _modules l self))))))
       
-  (define __getattr__
+  (define __getattribute__
     (lambda (self k)
       (define (fail)
        (raise (AttributeError "getattr in Module")))
   (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)
 
   (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)
   (define __getitem__
     (lambda (self k)
       (define k (if (string? k) (string->symbol k) k))
-      (__getattr__ self k)))
+      (__getattribute__ self k)))
   
   (define __iter__
     (lambda (self)