Posted to tcl by colin at Wed Nov 17 23:41:52 GMT 2010view raw

  1. namespace eval foo {
  2. proc wilma {} {
  3. puts wilma!
  4. }
  5. proc bar {} {
  6. while {1} {
  7. variable v
  8. puts [incr v]
  9. wilma
  10. yield
  11. }
  12. }
  13. }
  14.  
  15. coroutine ::coro ::foo::bar
  16. namespace delete ::foo
  17.  
  18. while {1} {
  19. ::coro
  20. }