diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-11-27 23:01:50 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-11-28 13:13:42 +1000 |
| commit | a730e83215ae7b15a3311afec79c5b4ce0700ed4 (patch) | |
| tree | 01e6ce426a73f0c3e6380dc3cee037d18cf16e0d /tests/tailcall.test | |
| parent | ae8a6597a4220c44c14cd7e4214384926468a732 (diff) | |
| download | jimtcl-a730e83215ae7b15a3311afec79c5b4ce0700ed4.zip jimtcl-a730e83215ae7b15a3311afec79c5b4ce0700ed4.tar.gz jimtcl-a730e83215ae7b15a3311afec79c5b4ce0700ed4.tar.bz2 | |
Implement [alias] in C
And allow commands to set a temporary name for the purpose
of generating error messages
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/tailcall.test')
| -rw-r--r-- | tests/tailcall.test | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test index 027dfe8..35ae91c 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -31,14 +31,6 @@ test tailcall-1.3 {Tailcall does return} { set x } {5} -# 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 - list $x $y -} {1 1} - test tailcall-1.5 {interaction of uplevel and tailcall} { proc a {cmd} { tailcall $cmd |