Sanify AST constructors.

git-svn-id: http://svn.drobilla.net/resp/tuplr@149 ad02d1e2-f140-0410-9f75-f8b11f17cedd

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;