diff options
Diffstat (limited to 'modules')
-rw-r--r-- | modules/language/python/compile.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 734fe60..3b5bd8f 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -698,10 +698,25 @@ (() ''()) (((#:starexpr #:power #f (#:list . l) . _) . _) (lp l)) + (((#:starexpr #:power #f (#:tuple . l) . _) . _) + (lp l)) (((#:starexpr . l) . _) `(,(L 'to-list) ,(exp vs l))) ((x . l) `(cons ,(exp vs x) ,(lp l)))))))) + (#:tuple + ((_ . l) + (let lp ((l l)) + (match l + (() ''()) + (((#:starexpr #:power #f (#:list . l) . _) . _) + (lp l)) + (((#:starexpr #:power #f (#:tuple . l) . _) . _) + (lp l)) + (((#:starexpr . l) . _) + `(,(L 'to-list) ,(exp vs l))) + ((x . l) + `(cons ,(exp vs x) ,(lp l))))))) (#:lambdef ((_ v e) |