diff options
Diffstat (limited to 'src/flatten.cpp')
| -rw-r--r-- | src/flatten.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/flatten.cpp b/src/flatten.cpp index 59748f3..613403b 100644 --- a/src/flatten.cpp +++ b/src/flatten.cpp @@ -127,7 +127,7 @@ flatten_if(CEnv& cenv, Code& code, const ATuple* aif) throw() code.push_back(else_goto); List end(Cursor(), cenv.penv.sym("if-end"), if_lab, NULL); - List def(Cursor(), cenv.penv.sym("def"), result, end, NULL); + List def(Cursor(), cenv.penv.sym("def"), result, end.head, NULL); code.push_back(def); cenv.setTypeSameAs(end, aif); @@ -155,7 +155,7 @@ flatten_call(CEnv& cenv, Code& code, const ATuple* call) throw() copy.push_back(arg); } const ASymbol* sym = cenv.penv.gensym(); - List def(Cursor(), cenv.penv.sym("def"), sym, copy, NULL); + List def(Cursor(), cenv.penv.sym("def"), sym, copy.head, NULL); code.push_back(def); cenv.setTypeSameAs(copy, call); |