Posted to tcl by kostix at Wed Aug 15 22:58:11 GMT 2007view pretty

% proc mybreak {} { uplevel 1 return -code break }

% proc foo {} {
  set i 0
  while true {
    incr i
    if {$i == 10} {
      mybreak
    }
  }
  puts "must not reach here"
}

% foo
must not reach here