From 03b9284e4b451ba748b196657d2d21c463421627 Mon Sep 17 00:00:00 2001 From: David Robillard Date: Thu, 30 Dec 2010 22:55:52 +0000 Subject: Fix calling inline fn expressions (don't allocate closure twice). git-svn-id: http://svn.drobilla.net/resp/resp@380 ad02d1e2-f140-0410-9f75-f8b11f17cedd --- src/lift.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/lift.cpp b/src/lift.cpp index 3e785b9..0792333 100644 --- a/src/lift.cpp +++ b/src/lift.cpp @@ -200,7 +200,7 @@ lift_call(CEnv& cenv, Code& code, const ATuple* call) throw() */ copy.push_front(cenv.penv.sym(cenv.liftStack.top().implName)); cenv.setTypeSameAs(copy, call); - } else if (is_form(call, "fn")) { + } else if (is_form(call->fst(), "fn")) { /* Special case: ((fn ...) ...) * Lifting (fn ...) yields: (Fn _impl ...). * We don't want ((Fn _impl ...) (Fn _impl ...) ...), -- cgit v1.2.1