Improve show{}
@@ -94,6 +94,11 @@ proc readfile { filename } {
proc show { args } {
foreach v $args {
upvar $v t
+
+ if { ! [ info exists v ] } {
+ error "show: variable does not exist: $v"
+ }
+
puts "$v: $t"
}
}
