From 4f6fd10f501dc6a783f88eafcbcbdfc54233e666 Mon Sep 17 00:00:00 2001 From: Cyan Ogilvie Date: Tue, 12 Feb 2008 23:27:58 +0200 Subject: [PATCH] Preserved options dictionary --- scripts/try.tcl | 1 + 1 file changed, 1 insertion(+) diff --git a/scripts/try.tcl b/scripts/try.tcl index 5fffe88..dc7a409 100644 --- a/scripts/try.tcl +++ b/scripts/try.tcl @@ -24,6 +24,7 @@ proc tlc::try {code args} { #<<<1 } if {[set hcode [catch { uplevel [list set errmsg $errmsg] + uplevel [list set options $options] uplevel [list switch -- [lindex $::errorCode 0] $handlers] } herrmsg options]]} { dict incr options -level 1 -- 2.11.4.GIT