Version 2 of ?append

Updated 2004-05-14 07:05:33

proc ?append {v_name val} {

  upvar $v_name v
  if {![info exists v]} {
   return -code error "expected $v_name to exist!"
  }
  append v $val
 } ;# GPS