tuples
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 16 Sep 2017 22:13:25 +0000 (00:13 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 16 Sep 2017 22:13:25 +0000 (00:13 +0200)
modules/language/python/compile.scm

index 734fe6004d9124f9754b3983ad720e2eb116807f..3b5bd8f16f673b31103b65d69a6f93f22c499c61 100644 (file)
                              (() ''())
                              (((#: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)