Posted to tcl by aspect at Wed Apr 08 13:40:57 GMT 2015view pretty
oo::class create Foo { method five {} { tailcall expr 5 } } oo::class create Unfoo { superclass Foo method five {} { return -[next] } } Unfoo create fu puts "[fu five] should be -5?" # 8.6.2..trunk: 5 should be -5? # 8.6.1: -5 should be -5?