Set name of closures so defined functions are emitted with meaningful names.

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

1 files changed, 3 insertions, 0 deletions

diff --git a/llvm.cpp b/llvm.cpp
index 0cd5199..64fc6a6 100644
--- a/llvm.cpp
+++ b/llvm.cpp
@@ -341,6 +341,9 @@ ADefinition::lift(CEnv& cenv)
 {
 	// Define first for recursion
 	cenv.def(at(1)->as<ASymbol*>(), at(2), cenv.type(at(2)), NULL);
+	AClosure* c = dynamic_cast<AClosure*>(at(2));
+	if (c)
+		c->name = at(1)->str();
 	at(2)->lift(cenv);
 }