Tcl Source Code

Artifact d5c3582936f7a1602043888cdfe3cbab49506b91:

Attachment "csegv3.tcl" to ticket [3008307fff] added by coldstore 2010-06-01 08:10:22.

---

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