From a16dd265fddd7da26564109f4026fb1d12c1071a Mon Sep 17 00:00:00 2001
From: Martin Odersky <odersky@gmail.com>
Date: Thu, 6 Mar 2003 19:14:59 +0000
Subject: *** empty log message ***

---
 sources/scalac/transformer/LambdaLift.java | 37 ++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

(limited to 'sources/scalac/transformer/LambdaLift.java')

diff --git a/sources/scalac/transformer/LambdaLift.java b/sources/scalac/transformer/LambdaLift.java
index 608db61eae..48f1edf66a 100644
--- a/sources/scalac/transformer/LambdaLift.java
+++ b/sources/scalac/transformer/LambdaLift.java
@@ -380,6 +380,11 @@ public class LambdaLift extends OwnerTransformer
 	    }
 	    return copy.ValDef(tree, mods, name1, tpe1, rhs1);
 
+	case Tuple(Tree[] args):
+	    Tree tree1 = mkList(tree.pos, tree.type, transform(args));
+	    //new scalac.ast.printer.TextTreePrinter().print("TUPLE: ").print(tree).print("\n ==> \n").print(tree1).println().end();//DEBUG
+	    return tree1;
+
 	case Apply(Tree fn, Tree[] args):
 	    Symbol fsym = TreeInfo.methSymbol(fn);
 	    Tree fn1 = transform(fn);
@@ -535,4 +540,36 @@ public class LambdaLift extends OwnerTransformer
 	    return args;
 	}
     }
+
+    Tree mkList(int pos, Type tpe, Tree[] args) {
+	return mkList(pos, tpe.typeArgs()[0], args, 0);
+    }
+
+    Tree mkList(int pos, Type elemtpe, Tree[] args, int start) {
+	if (start == args.length) return mkNil(pos, elemtpe);
+	else return mkCons(pos, elemtpe, args[start],
+			   mkList(pos, elemtpe, args, start + 1));
+    }
+
+    Tree mkNil(int pos, Type elemtpe) {
+	return gen.New(
+	    gen.Apply(
+		gen.TypeApply(
+		    gen.mkRef(
+			pos,
+			global.definitions.getClass(Names.scala_Nil).constructor()),
+		    new Tree[]{gen.mkType(pos, elemtpe)}),
+		new Tree[]{}));
+    }
+
+    Tree mkCons(int pos, Type elemtpe, Tree hd, Tree tl) {
+	return gen.New(
+	    gen.Apply(
+		gen.TypeApply(
+		    gen.mkRef(
+			pos,
+			global.definitions.getClass(Names.scala_COLONCOLON).constructor()),
+		    new Tree[]{gen.mkType(pos, elemtpe)}),
+		new Tree[]{hd, tl}));
+    }
 }
-- 
cgit v1.2.3