Posted to tcl by colin at Sun May 30 04:00:26 GMT 2010view pretty

proc c {} {
    yield
}

proc cc {} {
    coroutine C c
}

proc boom {} {
    cc
    C
}

boom