4 lines
53 B
Tcl
4 lines
53 B
Tcl
|
|
proc semival args {
|
||
|
|
uplevel 1 [join $args ";"]
|
||
|
|
}
|