Posted to tcl by colin at Wed Nov 17 01:30:19 GMT 2010view raw
- proc reader {} {
- ::yield
- }
- oo::class create ::Lamb {
- method reader {} {
- ::yield
- }
- constructor {} {
- ::coroutine ::meh [self] reader ;# will crash
- #::coroutine ::meh reader ;# will not crash
- }
- }
- [::Lamb new] destroy
- foreach o [info class instances ::Lamb] {
- info object namespace $o
- }