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