Posted to tcl by colin at Wed Nov 17 23:40:47 GMT 2010view raw

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