Posted to tcl by pooryorick at Sun Apr 08 12:02:29 GMT 2018view pretty
coroutine c2 ::apply {{} {
yield
}}
coroutine c1 ::apply [list {} {
after 0 {
puts [list in coroutine [info coroutine]]
yieldto c2
}
vwait forever
}]
coroutine c2 ::apply {{} {
yield
}}
coroutine c1 ::apply [list {} {
after 0 {
puts [list in coroutine [info coroutine]]
yieldto c2
}
vwait forever
}]