diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-05-19 09:53:22 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-05-19 23:14:15 +1000 |
| commit | efde68f79a637826bdb61bc058d471718ed1ec95 (patch) | |
| tree | 0184a4bb134143b643c7183ba0b567c29e2dc769 /tclcompat.tcl | |
| parent | 391fe26d1f8a6965b404c21e9d64c2e41cab3767 (diff) | |
| download | jimtcl-efde68f79a637826bdb61bc058d471718ed1ec95.zip jimtcl-efde68f79a637826bdb61bc058d471718ed1ec95.tar.gz jimtcl-efde68f79a637826bdb61bc058d471718ed1ec95.tar.bz2 | |
Fix some missing closing brackets
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tclcompat.tcl')
| -rw-r--r-- | tclcompat.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index bd0cedc..9496f46 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -162,10 +162,10 @@ proc pid {{chan {}}} { if {$chan eq ""} { tailcall .pid } - if {[catch {$chan tell}} { + if {[catch {$chan tell}]} { return -code error "can not find channel named \"$chan\"" } - if {[catch {$chan pid} pids} { + if {[catch {$chan pid} pids]} { return "" } return $pids |