diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-13 19:15:33 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-13 19:15:33 +0200 |
commit | 6d5d8c93b6732d5264599547f6c2eb38819e6589 (patch) | |
tree | 2c279ac9b734a019376910edeaae0a5eb29e4659 /modules/language/python/module.scm | |
parent | 3a49678cde8635847f52c3e94a25e27bfaf62684 (diff) |
fix minor module bug
Diffstat (limited to 'modules/language/python/module.scm')
-rw-r--r-- | modules/language/python/module.scm | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm index aacf3a1..16204e4 100644 --- a/modules/language/python/module.scm +++ b/modules/language/python/module.scm @@ -63,36 +63,36 @@ #f))) (define __init__ - (case-lambda - ((self pre l nm) - (match l - ((name) - (rawset self '_path (reverse (cons name pre))) - (_cont self #f (cons name pre) #f (cons name nm) #f)) + (case-lambda + ((self pre l nm) + (match l + ((name) + (rawset self '_path (reverse (cons name pre))) + (_cont self #f (cons name pre) #f (cons name nm) #f)) - ((name . (and l (name2 . _))) - (rawset self '_path (reverse (cons name pre))) - (_cont self name2 (cons name pre) l (cons name nm) #t)))) + ((name . (and l (name2 . _))) + (rawset self '_path (reverse (cons name pre))) + (_cont self name2 (cons name pre) l (cons name nm) #t)))) - - ((self l nm) - (_cont self #f l #f nm #f)) - - ((self l) - (if (pair? l) - (if (and (> (length l) 3) - (equal? (list (list-ref l 0) - (list-ref l 1) - (list-ref l 2)) - '(language python module))) - (__init__ self (reverse '(language python module)) (cdddr l) - '()) - (__init__ self '() l '())) - (__init__ self - (append - '(language python module) - (map string->symbol - (string-split l #\.)))))))) + + ((self l nm) + (_cont self #f l #f nm #f)) + + ((self l) + (if (pair? l) + (if (and (> (length l) 3) + (equal? (list (list-ref l 0) + (list-ref l 1) + (list-ref l 2)) + '(language python module))) + (__init__ self (reverse '(language python module)) (cdddr l) + '()) + (__init__ self '() l '())) + (__init__ self + (append + '(language python module) + (map string->symbol + (string-split l #\.)))))))) (define __update__ (case-lambda @@ -229,6 +229,6 @@ (define (import-f x f . l) (if x (if (m? x) - (begin (apply (rawref x '__update__) l) x) + (begin (apply (rawref x '__update__) x l) x) (apply f l)) (apply f l))) |