Version 5 of ?append

Updated 2006-08-03 02:27:19

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