diff options
Diffstat (limited to 'src/compile.cpp')
| -rw-r--r-- | src/compile.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compile.cpp b/src/compile.cpp index 142fa0a..4ac7dfc 100644 --- a/src/compile.cpp +++ b/src/compile.cpp @@ -115,11 +115,11 @@ compile_def(CEnv& cenv, const ATuple* def) throw() static CVal compile_cons(CEnv& cenv, const ATuple* cons) throw() { - AType* type = new AType(const_cast<ASymbol*>(cons->head()->as_symbol()), NULL, Cursor()); + AType* type = new AType(cons->head()->as_symbol(), NULL, Cursor()); TList tlist(type); vector<CVal> fields; for (ATuple::const_iterator i = cons->iter_at(1); i != cons->end(); ++i) { - tlist.push_back(const_cast<AType*>(cenv.type(*i))); + tlist.push_back(cenv.type(*i)); fields.push_back(resp_compile(cenv, *i)); } return cenv.engine()->compileTup(cenv, type, resp_compile(cenv, type), fields); |