Posted to tcl by aspect at Wed Jan 29 18:27:33 GMT 2014view raw
- proc main {{x 2}} {
- if {$x < 3} {
- set ::result "too small"
- } elseif {$x > 5} {
- set ::result "too high"
- }
- }
- trace add execution main leavestep {apply {{_ _ r _} {set ::result $r}}}
- main 2
- puts [set result]