6 lines
171 B
Tcl
6 lines
171 B
Tcl
proc loop {varName lowerBound upperBound body} {
|
|
upvar 1 $varName var
|
|
for {set var $lowerBound} {$var <= $upperBound} {incr var} {
|
|
uplevel 1 $body
|
|
}
|
|
}
|