yarrg/yarrglib.tcl

   1 package provide yarrglib 0.1;
   2
   3 proc manyset {list args} {
   4     foreach val $list var $args {
   5         upvar 1 $var my
   6         set my $val
   7     }
   8 }