From 21a4cc959f1cdec256a7e0231b98a41c9a8450e0 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 17 Apr 2018 20:48:45 +0200 Subject: further improvements following python3 spec --- modules/language/python/module.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'modules/language/python') diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm index 53aa1c2..ab963d1 100644 --- a/modules/language/python/module.scm +++ b/modules/language/python/module.scm @@ -138,16 +138,17 @@ (define __getattribute__ (lambda (self k) (define (fail) - (raise KeyError "getattr in Module")) - - (if (rawref self '_module) - (let ((k (_k k)) - (m (_m self))) - (let ((x (module-ref m k e))) - (if (eq? e x) - (fail) - x))) - (fail)))) + (raise (KeyError "getattr in Module"))) + (aif it (rawref self k) + it + (if (rawref self '_module) + (let ((k (_k k)) + (m (_m self))) + (let ((x (module-ref m k e))) + (if (eq? e x) + (fail) + x))) + (fail))))) (define __setattr__ (lambda (self k v) -- cgit v1.2.3