diff options
Diffstat (limited to 'src/cps.cpp')
| -rw-r--r-- | src/cps.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cps.cpp b/src/cps.cpp index 889a716..f7c3892 100644 --- a/src/cps.cpp +++ b/src/cps.cpp @@ -66,7 +66,7 @@ ATuple::cps(TEnv& tenv, AST* cont) const AFn* firstFn = NULL; ssize_t index = 0; FOREACHP(const_iterator, i, this) { - if (!(*i)->to<ATuple*>()) { + if (!(*i)->to_tuple()) { funcs.push_back(make_pair((AFn*)NULL, (*i))); } else { arg = tenv.penv.gensym("a"); @@ -114,8 +114,8 @@ ATuple::cps(TEnv& tenv, AST* cont) const AST* ADef::cps(TEnv& tenv, AST* cont) const { - AST* val = body()->cps(tenv, cont); - ATuple* valCall = val->to<ATuple*>(); + AST* val = body()->cps(tenv, cont); + ATuple* valCall = val->to_tuple(); ATuple::iterator i = valCall->begin(); return tup<ADef>(loc, tenv.penv.sym("def"), sym(), *++i, 0); } |