GPS Oct 16, 2003 - Today it occurred to me that I might accidentally set the wrong variable in my Perpheon language translator, and it could cause me to have a nasty debug session, so I decided to come up with a proc that sets a variable but returns an error if it doesn't exist.
proc ?set {v_name val} {
upvar $v_name v
if {![info exists v]} {
return -code error "expected $v_name to exist!"
}
set v $val
} ;# GPSHere is a log demonstrating usage:
% ?set foo bar error: variable doesn't exist. % set foo abc abc % ?set foo bar bar % set foo bar %
See also ?append