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?