diff options
Diffstat (limited to 'src/parse.cpp')
| -rw-r--r-- | src/parse.cpp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/parse.cpp b/src/parse.cpp index 35765a9..e7825bc 100644 --- a/src/parse.cpp +++ b/src/parse.cpp @@ -58,10 +58,10 @@ PEnv::parse(const AST* exp) return h->func(*this, exp, h->arg); // Parse special form if (isupper(form->c_str()[0])) // Call constructor (any uppercase symbol) - return parseTuple<ACall>(*this, tup); + return parseTuple<ATuple>(*this, tup); } - return parseTuple<ACall>(*this, tup); // Parse regular call + return parseTuple<ATuple>(*this, tup); // Parse regular call } const ALexeme* lex = exp->to<const ALexeme*>(); @@ -132,7 +132,7 @@ macDef(PEnv& penv, const AST* exp) inline AST* parseCall(PEnv& penv, const AST* exp, void* arg) { - return parseTuple<ACall>(penv, exp->to<const ATuple*>()); + return parseTuple<ATuple>(penv, exp->to<const ATuple*>()); } template<typename T> @@ -154,7 +154,7 @@ parseFn(PEnv& penv, const AST* exp, void* arg) while (a != texp->end()) ret.push_back(penv.parse(*a++)); ret.head->loc = exp->loc; - return new ACall(ret.head); + return new ATuple(*ret.head); } inline AST* @@ -164,7 +164,7 @@ parseQuote(PEnv& penv, const AST* exp, void* arg) THROW_IF(texp->list_len() != 2, exp->loc, "`quote' requires exactly 1 argument"); const ALexeme* quotee = texp->list_ref(1)->to<const ALexeme*>(); THROW_IF(!quotee, exp->loc, "`quote' argument is not a lexeme"); - ACall* ret = tup<ACall>(texp->loc, penv.sym("quote"), quotee, NULL); + ATuple* ret = tup<ATuple>(texp->loc, penv.sym("quote"), quotee, NULL); return ret; } |