Shorten AST names to match code names.

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

1 files changed, 9 insertions, 9 deletions

diff --git a/llvm.cpp b/llvm.cpp
index 14ea407..c7d9224 100644
--- a/llvm.cpp
+++ b/llvm.cpp
@@ -193,7 +193,7 @@ ASymbol::compile(CEnv& cenv)
 }
 
 void
-AClosure::lift(CEnv& cenv)
+AFn::lift(CEnv& cenv)
 {
 	cenv.push();
 	for (const_iterator p = prot()->begin(); p != prot()->end(); ++p)
@@ -214,7 +214,7 @@ AClosure::lift(CEnv& cenv)
 }
 
 void
-AClosure::liftCall(CEnv& cenv, const AType& argsT)
+AFn::liftCall(CEnv& cenv, const AType& argsT)
 {
 	TEnv::GenericTypes::const_iterator gt = cenv.tenv.genericTypes.find(this);
 	assert(gt != cenv.tenv.genericTypes.end());
@@ -284,7 +284,7 @@ AClosure::liftCall(CEnv& cenv, const AType& argsT)
 
 	// Scan out definitions
 	for (size_t i = 0; i < size(); ++i) {
-		ADefinition* def = at(i)->to<ADefinition*>();
+		ADef* def = at(i)->to<ADef*>();
 		if (def) {
 			const Type* lt = llType(cenv.type(def->at(2)));
 			THROW_IF(!lt, loc, "untyped definition\n");
@@ -327,7 +327,7 @@ AClosure::liftCall(CEnv& cenv, const AType& argsT)
 }
 
 CValue
-AClosure::compile(CEnv& cenv)
+AFn::compile(CEnv& cenv)
 {
 	return NULL;
 }
@@ -335,7 +335,7 @@ AClosure::compile(CEnv& cenv)
 void
 ACall::lift(CEnv& cenv)
 {
-	AClosure* c = cenv.tenv.resolve(at(0))->to<AClosure*>();
+	AFn* c = cenv.tenv.resolve(at(0))->to<AFn*>();
 	AType     argsT(loc, NULL);
 
 	// Lift arguments
@@ -357,7 +357,7 @@ ACall::lift(CEnv& cenv)
 CValue
 ACall::compile(CEnv& cenv)
 {
-	AClosure* c = cenv.tenv.resolve(at(0))->to<AClosure*>();
+	AFn* c = cenv.tenv.resolve(at(0))->to<AFn*>();
 
 	if (!c) return NULL; // Primitive
 
@@ -382,18 +382,18 @@ ACall::compile(CEnv& cenv)
 }
 
 void
-ADefinition::lift(CEnv& cenv)
+ADef::lift(CEnv& cenv)
 {
 	// Define stub first for recursion
 	cenv.def(sym(), at(2), cenv.type(at(2)), NULL);
-	AClosure* c = at(2)->to<AClosure*>();
+	AFn* c = at(2)->to<AFn*>();
 	if (c)
 		c->name = sym()->str();
 	at(2)->lift(cenv);
 }
 
 CValue
-ADefinition::compile(CEnv& cenv)
+ADef::compile(CEnv& cenv)
 {
 	// Define stub first for recursion
 	cenv.def(sym(), at(2), cenv.type(at(2)), NULL);