From keithp at keithp.com  Thu Jul 19 00:13:22 2007
From: keithp at keithp.com (Keith Packard)
Date: Thu, 19 Jul 2007 00:13:22 -0700 (PDT)
Subject: [Nickle] nickle: Branch 'master'
Message-ID: <20070719071322.4A26B138001@keithp.com>

 compile.c |    2 ++
 1 file changed, 2 insertions(+)

New commits:
commit 89d28f4f223f96f6029fa4d373c39c3ff1779c40
Author: Keith Packard <keithp at neko.keithp.com>
Date:   Thu Jul 19 00:12:49 2007 -0700

    No tail calls without a parent frame

diff --git a/compile.c b/compile.c
index 13d68e4..c21bc8d 100644
--- a/compile.c
+++ b/compile.c
@@ -1127,6 +1127,8 @@ CompileCall (ObjPtr obj, ExprPtr expr, Tail tail, ExprPtr stat, CodePtr code, Bo
     t = CompileRefType (obj, expr, expr->base.type);
     if ((t && !auto_reference) || (!t && auto_reference))
 	tail = TailNever;
+    if (!code)
+	tail = TailNever;
     if ((tail == TailAlways &&
 	 !TypePoly (expr->base.type) &&
 	 TypeIsSupertype (code->base.type, expr->base.type)) ||