Posted to tcl by colin at Mon May 31 02:51:24 GMT 2010view pretty

proc c {} {
    puts stderr "*1 [info coroutine] - level:[info level] frame:[info frame] - [info frame -1]"
    yield
    puts stderr "*2 [info coroutine] - level:[info level] frame:[info frame] - [info frame -1]"
}

proc cc {} {
    coroutine C c
}

cc
rename cc {}
C