Posted to tcl by colin at Sat Jan 12 05:50:14 GMT 2013view raw

  1. proc nfor {args} {
  2. foreach {v n} [lassign [lreverse $args] body] {
  3. set body [list foreach $n $v $body]
  4. }
  5. uplevel 1 $body
  6. }
  7.