6 lines
137 B
Tcl
6 lines
137 B
Tcl
|
if {[catch { ''... code that might give error ...'' } result]} {
|
||
|
|
puts "Error was $result"
|
||
|
|
} else {
|
||
|
|
''... process $result ...''
|
||
|
|
}
|