diff options
Diffstat (limited to 'modules/language/python/module.scm')
| -rw-r--r-- | modules/language/python/module.scm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm index 3453a25..aacf3a1 100644 --- a/modules/language/python/module.scm +++ b/modules/language/python/module.scm @@ -61,8 +61,8 @@ ((ref it '__update__) pre l nm) (rawset self id (Module pre l nm))) #f))) - - (define __init__ + + (define __init__ (case-lambda ((self pre l nm) (match l @@ -85,11 +85,15 @@ (list-ref l 1) (list-ref l 2)) '(language python module))) - (__init__ self (reverse '(language python module)) (cdddr l) '()) - #f) + (__init__ self (reverse '(language python module)) (cdddr l) + '()) + (__init__ self '() l '())) (__init__ self - (map string->symbol - (string-split l #\.))))))) + (append + '(language python module) + (map string->symbol + (string-split l #\.)))))))) + (define __update__ (case-lambda ((self pre l nm) @@ -221,7 +225,7 @@ (else #f)) a ...))))) -(define (m? x) ((@ (language python module python) isinstance) x Module)) +(define (m? x) ((@ (language python module _python) isinstance) x Module)) (define (import-f x f . l) (if x (if (m? x) |