From d412ea125107cde07e8ee45781be4b964e927268 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Mon, 30 Jul 2018 19:16:58 +0200 Subject: selectors python file imported from main python 3.7 --- modules/language/python/compile.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'modules/language/python/compile.scm') 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)))) -- cgit v1.2.3