Posted to tcl by colin at Wed Nov 17 01:30:19 GMT 2010view raw

  1. proc reader {} {
  2. ::yield
  3. }
  4.  
  5. oo::class create ::Lamb {
  6. method reader {} {
  7. ::yield
  8. }
  9.  
  10. constructor {} {
  11. ::coroutine ::meh [self] reader ;# will crash
  12. #::coroutine ::meh reader ;# will not crash
  13. }
  14. }
  15.  
  16. [::Lamb new] destroy
  17. foreach o [info class instances ::Lamb] {
  18. info object namespace $o
  19. }