Version 0 of ?lappend

Updated 2004-05-14 09:45:11

proc ?lappend {v_name args} {

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