Posted to tcl by pooryorick at Sun Apr 08 12:02:29 GMT 2018view raw

  1. coroutine c2 ::apply {{} {
  2. yield
  3. }}
  4.  
  5. coroutine c1 ::apply [list {} {
  6. after 0 {
  7. puts [list in coroutine [info coroutine]]
  8. yieldto c2
  9. }
  10. vwait forever
  11. }]
  12.  
  13.