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

  1. proc c {} {
  2. yield
  3. }
  4.  
  5. proc cc {} {
  6. coroutine C c
  7. }
  8.  
  9. proc boom {} {
  10. cc
  11. C
  12. }
  13.  
  14. boom