diff options
| -rw-r--r-- | src/expand.cpp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/expand.cpp b/src/expand.cpp index e5e3255..68904a9 100644 --- a/src/expand.cpp +++ b/src/expand.cpp @@ -65,14 +65,13 @@ expand_def(PEnv& penv, const AST* exp, void* arg) for (++j; j != pat->end(); ++j) argsExp.push_back(*j); argsExp.head->loc = exp->loc; - const AST* body = *(++i); List fnExp; fnExp.push_back(penv.sym("fn")); fnExp.push_back(argsExp.head); for (; i != tup->end(); ++i) fnExp.push_back(*i); - fnExp.head->loc = body->loc; + fnExp.head->loc = exp->loc; List ret; ret.push_back(tup->fst()); |