Posted to tcl by aspect at Mon Dec 07 22:39:33 GMT 2020view pretty

proc t_enter {cmd _} {
    puts "[string repeat > [info level]] {cmd}"
}
proc t_leave {cmd code res _} {
    if {$code} return
    puts "[string repeat < [info level]] {$res}"
}
trace add execution compute2 enter t_enter
trace add execution compute2 leave t_leave