From 404a540341683e29cbdbc6a958a762d9f8c5d6bd Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sat, 8 Oct 2011 13:32:19 +0300
Subject: Bugfix

* src/parser.c (func_body): Reset caller when the topmost block is closed.
---
 THANKS       | 2 +-
 src/parser.c | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/THANKS b/THANKS
index 35aa29e..f41a882 100644
--- a/THANKS
+++ b/THANKS
@@ -6,4 +6,4 @@ Louis Bertrand		<louis@bertrandtech.ca>
 Nelson H. F. Beebe	<beebe@math.utah.edu>
 Robert E. Michael	<rmichael2@nc.rr.com>
 Shigio YAMAGUCHI	<shigio@tamacom.com>
-
+Terje Rosten            <terje.rosten@ntnu.no>
diff --git a/src/parser.c b/src/parser.c
index 3163920..cdfea4e 100644
--- a/src/parser.c
+++ b/src/parser.c
@@ -892,9 +892,11 @@ func_body()
 	  case 0:
 	       if (verbose)
 		    file_error(_("unexpected end of file in function body"), 0);
+	       caller = NULL;
 	       return;
 	  }
      }
+     caller = NULL;
 }
 
 int
-- 
cgit v1.2.1