Tcl Source Code

Artifact 2a1d487d8466876e9d81e054ae81b872395f12b9:

# core.tcl --
proc x {} {
    set x 1
}

proc foo {} {
    after 1000 {set ::go 1}
    vwait ::go
}

proc es {args} {
    puts $args
    trc remove
    foo
    trc add
    puts "done"
}

proc ls {args} {
    puts $args
    trc remove
    foo
    trc add
    puts "done"
}

proc trc {m} {
    trace $m execution ::x leavestep ls
    trace $m execution ::x enterstep es
}

trc add
x