Return from tailcall should be passed through

If a proc invokes a command via a tailcall and that command invokes
"return", the return should be passed back to the caller of the proc.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/tailcall.test b/tests/tailcall.test
index b7dab81..262ab0f 100644
--- a/tests/tailcall.test
+++ b/tests/tailcall.test
@@ -52,4 +52,17 @@ test tailcall-1.5 {interaction of uplevel and tailcall} {
 	a b
 } {c c}
 
+test tailcall-1.6 {tailcall pass through return} {
+	proc a {script} {
+		# return from $script should pass through back to the caller
+		tailcall foreach i {1 2 3} $script
+	}
+	proc b {} {
+		a {return ok}
+		# Should not get here
+		return bad
+	}
+	b
+} {ok}
+
 testreport