From c2d75892af2fdc6b9bf25365a15de5dc63bcc852 Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Fri, 16 Oct 2009 01:53:16 +0000
Subject: Cons.

git-svn-id: http://svn.drobilla.net/resp/tuplr@235 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 src/compile.cpp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/compile.cpp')

diff --git a/src/compile.cpp b/src/compile.cpp
index d525f57..797ae2e 100644
--- a/src/compile.cpp
+++ b/src/compile.cpp
@@ -85,6 +85,16 @@ AIf::compile(CEnv& cenv)
 	return cenv.engine()->compileIf(cenv, this);
 }
 
+CVal
+ACons::compile(CEnv& cenv)
+{
+	const AType* type = cenv.type(this);
+	vector<CVal> fields;
+	for (const_iterator i = begin() + 1; i != end(); ++i)
+		fields.push_back((*i)->compile(cenv));
+	return cenv.engine()->compileTup(cenv, type, fields);
+}
+
 CVal
 APrimitive::compile(CEnv& cenv)
 {
-- 
cgit v1.2.1