From 5883c0d11c21a74ba493ea369ff01d7baed80a41 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 15 Dec 2014 00:56:48 -0400
Subject: Added tuples.

---
 src/lang/analyser.clj | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/lang/analyser.clj')

diff --git a/src/lang/analyser.clj b/src/lang/analyser.clj
index 115204570..122d6353d 100644
--- a/src/lang/analyser.clj
+++ b/src/lang/analyser.clj
@@ -96,6 +96,11 @@
   (exec [=value (analyse-form* ?value)]
     (return (annotated [::variant ?tag =value] [::&type/variant ?tag (:type =value)]))))
 
+(defanalyser analyse-tuple
+  [::&parser/tuple ?elems]
+  (exec [=elems (map-m analyse-form* ?elems)]
+    (return (annotated [::tuple =elems] [::&type/tuple (mapv :type =elems)]))))
+
 (defanalyser analyse-ident
   [::&parser/ident ?ident]
   (resolve ?ident))
@@ -211,6 +216,7 @@
   (try-all-m [analyse-boolean
               analyse-string
               analyse-variant
+              analyse-tuple
               analyse-ident
               analyse-ann-class
               analyse-static-access
-- 
cgit v1.2.3