Posted to tcl by colin at Mon May 31 02:51:24 GMT 2010view raw
- 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