From ce194021127c1e19b03d12445dc6986ca67b51c3 Mon Sep 17 00:00:00 2001 From: David Robillard Date: Thu, 30 Dec 2010 23:28:08 +0000 Subject: Less code. git-svn-id: http://svn.drobilla.net/resp/resp@382 ad02d1e2-f140-0410-9f75-f8b11f17cedd --- src/lift.cpp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/lift.cpp') diff --git a/src/lift.cpp b/src/lift.cpp index 0792333..039eea4 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -150,7 +150,6 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw() ATuple* def = tup(fn->loc, cenv.penv.sym("def"), implName, impl.head, NULL); code.push_back(def); - List implT; // Type of the implementation function List tupT(fn->loc, cenv.tenv.Tup, cenv.tenv.var(), NULL); List consT; List cons(fn->loc, cenv.penv.sym("Closure"), implName, NULL); @@ -165,11 +164,9 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw() implProtT.push_front(tupT); - implT.push_back(type->fst()); - implT.push_back(implProtT.head); - implT.push_back(implRetT); + const ATuple* implT = tup(Cursor(), type->fst(), implProtT.head, implRetT, 0); - consT.push_front(implT.head); + consT.push_front(implT); consT.push_front(cenv.tenv.Tup); cenv.setType(impl, implT); -- cgit v1.2.1