From a816789db66decac5cf7a7f73a59862dba8b6a20 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 21 Oct 2011 15:41:10 +1000 Subject: Tcl 8.6 can run most tailcall tests Signed-off-by: Steve Bennett --- tests/tailcall.test | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/tailcall.test b/tests/tailcall.test index 262ab0f..027dfe8 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -1,5 +1,5 @@ source [file dirname [info script]]/testing.tcl -needs constraint jim + needs cmd tailcall needs cmd try tclcompat @@ -31,7 +31,8 @@ test tailcall-1.3 {Tailcall does return} { set x } {5} -test tailcall-1.4 {uplevel tailcall} { +# Note that Tcl can't do tailcall in uplevel +test tailcall-1.4 {uplevel tailcall} jim { proc a {} { set ::y [info level] } proc b {} { set ::x [info level]; uplevel 1 tailcall a} b -- cgit v1.1