4 lines
124 B
Tcl
4 lines
124 B
Tcl
proc enumerate {name values} {
|
|
interp alias {} $name: {} lsearch $values
|
|
interp alias {} $name@ {} lindex $values
|
|
}
|