6 lines
178 B
Tcl
6 lines
178 B
Tcl
if {$problem} {
|
|
# Print a “friendly” message...
|
|
puts stderr "some problem occurred"
|
|
# Indicate to the caller of the program that there was a problem
|
|
exit 1
|
|
}
|