4 lines
95 B
Tcl
4 lines
95 B
Tcl
proc swap {aName bName} {
|
|
upvar 1 $aName a $bName b
|
|
foreach {b a} [list $a $b] break
|
|
}
|