Posted to tcl by jima at Wed Jan 08 18:53:14 GMT 2014view raw

  1. (Desktop) 2 % proc a {} {
  2. > foreach v {1 2 3 4} {
  3. > if {$v eq 2} {return $v}
  4. > }
  5. > return 1
  6. > }
  7. (Desktop) 3 % a
  8. 2
  9. (Desktop) 4 %