From 64ad48b31e605c962022538eb02ebf6977fc2483 Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Thu, 30 Dec 2010 09:01:24 +0000
Subject: Fix crash at expand phase when def contains no body.

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

(limited to 'src')

diff --git a/src/expand.cpp b/src/expand.cpp
index e5e3255..68904a9 100644
--- a/src/expand.cpp
+++ b/src/expand.cpp
@@ -65,14 +65,13 @@ expand_def(PEnv& penv, const AST* exp, void* arg)
 		for (++j; j != pat->end(); ++j)
 			argsExp.push_back(*j);
 		argsExp.head->loc = exp->loc;
-		const AST* body = *(++i);
 
 		List fnExp;
 		fnExp.push_back(penv.sym("fn"));
 		fnExp.push_back(argsExp.head);
 		for (; i != tup->end(); ++i)
 			fnExp.push_back(*i);
-		fnExp.head->loc = body->loc;
+		fnExp.head->loc = exp->loc;
 		
 		List ret;
 		ret.push_back(tup->fst());
-- 
cgit v1.2.1