From fbdc2906df3ca629cad86b20492cb5f7546fd4b5 Mon Sep 17 00:00:00 2001 From: David Robillard Date: Thu, 9 Dec 2010 23:00:41 +0000 Subject: More readable names for lifted fn implementations. git-svn-id: http://svn.drobilla.net/resp/resp@338 ad02d1e2-f140-0410-9f75-f8b11f17cedd --- src/lift.cpp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/lift.cpp') diff --git a/src/lift.cpp b/src/lift.cpp index 67ae580..24f0265 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -91,8 +91,10 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw() impl.push_back(fn->head()); const string fnName = cenv.name(fn); - const string nameBase = cenv.penv.gensymstr(((fnName != "") ? fnName : "fn").c_str()); - const string implNameStr = string("_") + nameBase; + const string implNameStr = (fnName != "") + ? (string("__") + fnName) + : cenv.penv.gensymstr("__fn"); + cenv.setName(impl, implNameStr); cenv.liftStack.push(CEnv::FreeVars(fn, implNameStr)); -- cgit v1.2.1