diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/parse.cpp | 6 | ||||
| -rw-r--r-- | src/unify.cpp | 7 |
2 files changed, 6 insertions, 7 deletions
diff --git a/src/parse.cpp b/src/parse.cpp index c557c66..e37f095 100644 --- a/src/parse.cpp +++ b/src/parse.cpp @@ -74,10 +74,8 @@ parseLiteral(PEnv& penv, const SExp& exp, void* arg) inline AST* parseFn(PEnv& penv, const SExp& exp, void* arg) { - if (exp.size() < 2) - throw Error(exp.loc, "Missing function parameters and body"); - else if (exp.size() < 3) - throw Error(exp.loc, "Missing function body"); + THROW_IF(exp.size() < 2,exp.loc, "Missing function parameters and body"); + THROW_IF(exp.size() < 3, exp.loc, "Missing function body"); SExp::const_iterator a = exp.begin(); ++a; AFn* ret = tup<AFn>(exp.loc, penv.sym("fn"), new ATuple(penv.parseTuple(*a++)), 0); while (a != exp.end()) diff --git a/src/unify.cpp b/src/unify.cpp index d2bd055..864ea81 100644 --- a/src/unify.cpp +++ b/src/unify.cpp @@ -89,11 +89,12 @@ unify(const Constraints& constraints) cp.replace(t, s); return Subst::compose(unify(cp), Subst(t, s)); } else if (s->kind == AType::EXPR && s->kind == t->kind && s->size() == t->size()) { - for (size_t i = 0; i < s->size(); ++i) { + assert(*s->at(0)->to<ASymbol*>() == *t->at(0)->to<ASymbol*>()); + for (size_t i = 1; i < s->size(); ++i) { AType* si = s->at(i)->to<AType*>(); AType* ti = t->at(i)->to<AType*>(); - if (si && ti) - cp.push_back(Constraint(si, ti, si->loc)); + assert(si && ti); + cp.push_back(Constraint(si, ti, si->loc)); } return unify(cp); } else { |