aboutsummaryrefslogtreecommitdiffstats
path: root/tuplr.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'tuplr.cpp')
-rw-r--r--tuplr.cpp2
1 files changed, 1 insertions, 1 deletions
diff --git a/tuplr.cpp b/tuplr.cpp
index 788cd0e..5b1a357 100644
--- a/tuplr.cpp
+++ b/tuplr.cpp
@@ -176,7 +176,7 @@ parseFn(PEnv& penv, const SExp& exp, void* arg)
else if (exp.size() < 3)
throw Error(exp.loc, "Missing function body");
SExp::const_iterator a = exp.begin(); ++a;
- AFn* ret = new AFn(exp.loc, penv.sym("fn"), new ATuple(penv.parseTuple(*a++)));
+ AFn* ret = tup<AFn>(exp.loc, penv.sym("fn"), new ATuple(penv.parseTuple(*a++)), 0);
while (a != exp.end())
ret->push_back(penv.parse(*a++));
return ret;