Version 3 of ?append

Updated 2004-05-14 09:43:34

proc ?append {v_name args} {

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

DKF: I've updated the code above to match the calling convention for append