From fda0cd4431186161695e068267231fccd5199069 Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Fri, 31 Dec 2010 07:05:04 +0000
Subject: Fix crash due to recursive initialization.

git-svn-id: http://svn.drobilla.net/resp/resp@392 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 src/lift.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lift.cpp b/src/lift.cpp
index 6ae8709..e55bdfe 100644
--- a/src/lift.cpp
+++ b/src/lift.cpp
@@ -136,7 +136,7 @@ lift_fn(CEnv& cenv, Code& code, const ATuple* fn) throw()
 	for (ATuple::const_iterator p = fn->prot()->begin(); p != fn->prot()->end(); ++p) {
 		const AST* paramType = (*tp++);
 		if (is_form(paramType, "Fn")) {
-			const ATuple* fnType = new ATuple(cenv.tenv.var(), paramType->as_tuple(), fnType->loc);
+			const ATuple* fnType = new ATuple(cenv.tenv.var(), paramType->as_tuple(), paramType->loc);
 			paramType = tup((*p)->loc, cenv.tenv.Tup, fnType, NULL);
 		}
 		cenv.def((*p)->as_symbol(), *p, paramType, NULL);
-- 
cgit v1.2.1