Posted to tcl by aspect at Wed Jan 29 18:27:33 GMT 2014view raw

  1. proc main {{x 2}} {
  2. if {$x < 3} {
  3. set ::result "too small"
  4. } elseif {$x > 5} {
  5. set ::result "too high"
  6. }
  7. }
  8.  
  9. trace add execution main leavestep {apply {{_ _ r _} {set ::result $r}}}
  10. main 2
  11. puts [set result]
  12.