aboutsummaryrefslogtreecommitdiffstats
path: root/src/lift.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/lift.cpp')
-rw-r--r--src/lift.cpp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lift.cpp b/src/lift.cpp
index 6e1767a..25940f4 100644
--- a/src/lift.cpp
+++ b/src/lift.cpp
@@ -115,9 +115,9 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw()
cenv.push();
const AType* type = cenv.type(fn);
AType::const_iterator tp = type->prot()->begin();
- List<AType,AType> implProtT;
- List<ATuple, const AST> implProt;
+ List<ATuple, const AST> implProt;
+ List<AType, const AType> implProtT;
// Prepend closure parameter
implProt.push_back(cenv.penv.sym("_me"));
@@ -130,7 +130,7 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw()
}
cenv.def((*p)->as_symbol(), *p, paramType, NULL);
implProt.push_back(*p);
- implProtT.push_back(new AType(*paramType));
+ implProtT.push_back(paramType);
}
impl.push_back(implProt);