diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-30 19:16:58 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-30 19:16:58 +0200 |
commit | d412ea125107cde07e8ee45781be4b964e927268 (patch) | |
tree | 897aa7f4bdda16cd00c279656cc33a723e649097 /modules/language/python/compile.scm | |
parent | f1bf1243be40cc401b0f4f54b78416ed321abf1a (diff) |
selectors python file imported from main python 3.7
Diffstat (limited to 'modules/language/python/compile.scm')
-rw-r--r-- | modules/language/python/compile.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 5d7796b..378138c 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -910,10 +910,13 @@ #:select ,(map (lambda (x) (match x ((a . #f) - (exp vs a)) + (let ((s (exp vs a))) + s)) + ((a . b) - (cons (exp vs a) (exp vs b))))) - l)))) + (let ((s (exp vs a))) + (cons s (exp vs b)))))) + l)))) ((_ (#:name ((ids ...) . as)) ...) @@ -2081,7 +2084,7 @@ (define mod (current-module)) (if (module-defined? mod '__all__) (module-export! mod - (for ((x : (module-ref mod '__all__))) ((l '())) - (cons (string->symbol (scm-str x)) l) - #:final l)))) + (for ((x : (module-ref mod '__all__))) ((l '())) + (cons (string->symbol (scm-str x)) l) + #:final l)))) |