diff options
Diffstat (limited to 'src/simplify.cpp')
| -rw-r--r-- | src/simplify.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/simplify.cpp b/src/simplify.cpp index 63b5fd6..0c839f7 100644 --- a/src/simplify.cpp +++ b/src/simplify.cpp @@ -74,7 +74,7 @@ simplify_match(CEnv& cenv, const ATuple* match) throw() const ATuple* pat = (*i++)->as_tuple(); const AST* body = *i++; - const ASymbol* consTag = cenv.penv.sym(pat->head()->str(), pat->head()->loc); + const ASymbol* consTag = cenv.penv.sym(pat->fst()->str(), pat->fst()->loc); const_cast<ASymbol*>(consTag)->tag(T_LITSYM); cenv.setType(consTag, cenv.tenv.named("Symbol")); @@ -166,7 +166,7 @@ resp_simplify(CEnv& cenv, const AST* ast) throw() if (!list) return ast; - const ASymbol* const sym = list->head()->to_symbol(); + const ASymbol* const sym = list->fst()->to_symbol(); const std::string form = sym ? sym->sym() : ""; if (form == "match") |