diff options
Diffstat (limited to 'src/resp.cpp')
| -rw-r--r-- | src/resp.cpp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/resp.cpp b/src/resp.cpp index 611de0d..eb70e62 100644 --- a/src/resp.cpp +++ b/src/resp.cpp @@ -31,11 +31,11 @@ GC Object::pool(8 * 1024 * 1024); bool is_form(const AST* ast, const std::string& form) { - const ATuple* call = ast->to<const ATuple*>(); + const ATuple* call = ast->to_tuple(); if (!call) return false; - const ASymbol* const sym = call->head()->to<const ASymbol*>(); + const ASymbol* const sym = call->head()->to_symbol(); if (!sym) return false; @@ -45,11 +45,11 @@ is_form(const AST* ast, const std::string& form) bool is_primitive(const PEnv& penv, const AST* ast) { - const ATuple* call = ast->to<const ATuple*>(); + const ATuple* call = ast->to_tuple(); if (!call) return false; - const ASymbol* const sym = call->head()->to<const ASymbol*>(); + const ASymbol* const sym = call->head()->to_symbol(); if (!sym) return false; @@ -144,7 +144,7 @@ main(int argc, char** argv) while (is.good() && !is.eof()) { Cursor loc(*f); AST* exp = readExpression(loc, is); - if (!exp || (exp->as<ATuple*>() && exp->as<ATuple*>()->tup_len() == 1)) + if (!exp || (exp->as_tuple() && exp->as_tuple()->tup_len() == 1)) break; AST* ast = penv.parse(exp); |