Posted to tcl by jima at Wed Jan 08 18:53:14 GMT 2014view pretty
(Desktop) 2 % proc a {} {
> foreach v {1 2 3 4} {
> if {$v eq 2} {return $v}
> }
> return 1
> }
(Desktop) 3 % a
2
(Desktop) 4 %
(Desktop) 2 % proc a {} {
> foreach v {1 2 3 4} {
> if {$v eq 2} {return $v}
> }
> return 1
> }
(Desktop) 3 % a
2
(Desktop) 4 %