diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-03-03 16:02:25 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:49 +1000 |
commit | 8a21e1c0ea44a829f84e526a8302e6effbc4a9b1 (patch) | |
tree | 84f7fe867f2a3adce1a936a5f1e7cdcb724f4cfd /tclcompat.tcl | |
parent | b83beb2febcbe0abcf338e3f915b43889ce93eca (diff) | |
download | jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.zip jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.tar.gz jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.tar.bz2 |
Improvements to tailcall
Add tests and documentation
Make tailcall work within 'try'
Fix tailcall interaction with uplevel
Use tailcall for dispatch in tree.tcl
Also some related improvements in tree.tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 58dee97..0c6c550 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -164,7 +164,7 @@ proc try {args} { return -code error {wrong # args: should be "try ?options? script ?argument ...?"} } set args [lassign $args script] - set code [catch {*}$catchopts [list uplevel 1 $script] msg opts] + set code [catch -eval {*}$catchopts [list uplevel 1 $script] msg opts] set handled 0 |