Posted to tcl by colin at Sat Jan 12 05:50:14 GMT 2013view pretty
proc nfor {args} {
foreach {v n} [lassign [lreverse $args] body] {
set body [list foreach $n $v $body]
}
uplevel 1 $body
}
proc nfor {args} {
foreach {v n} [lassign [lreverse $args] body] {
set body [list foreach $n $v $body]
}
uplevel 1 $body
}