5 lines
97 B
Tcl
5 lines
97 B
Tcl
|
proc decr {varName {decrement 1}} {
|
||
|
|
upvar 1 $varName var
|
||
|
|
incr var [expr {-$decrement}]
|
||
|
|
}
|