diff options
| author | David Robillard <d@drobilla.net> | 2010-12-30 23:28:08 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2010-12-30 23:28:08 +0000 |
| commit | ce194021127c1e19b03d12445dc6986ca67b51c3 (patch) | |
| tree | a511136e9acfeabdb36d9ab3ab43187e0d060b08 | |
| parent | 0c50a9b37e2f30dd4b3800017ebdd87481fcfa09 (diff) | |
| download | resp-ce194021127c1e19b03d12445dc6986ca67b51c3.tar.gz resp-ce194021127c1e19b03d12445dc6986ca67b51c3.tar.bz2 resp-ce194021127c1e19b03d12445dc6986ca67b51c3.zip | |
Less code.
git-svn-id: http://svn.drobilla.net/resp/resp@382 ad02d1e2-f140-0410-9f75-f8b11f17cedd
| -rw-r--r-- | src/lift.cpp | 7 |
1 files changed, 2 insertions, 5 deletions
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); |