Posted to tcl by aspect at Wed Apr 08 13:40:57 GMT 2015view raw

  1. oo::class create Foo {
  2. method five {} {
  3. tailcall expr 5
  4. }
  5. }
  6. oo::class create Unfoo {
  7. superclass Foo
  8. method five {} {
  9. return -[next]
  10. }
  11. }
  12. Unfoo create fu
  13. puts "[fu five] should be -5?"
  14. # 8.6.2..trunk: 5 should be -5?
  15. # 8.6.1: -5 should be -5?