Posted to tcl by kbk at Thu Jun 12 01:37:57 GMT 2008view raw

  1. proc b {} {
  2. return -code return {This goes to a's caller}
  3. }
  4. proc a {} {
  5. b
  6. return {This is never executed}
  7. }
  8. puts [a]