Posted to tcl by aspect at Sat Apr 16 10:15:26 GMT 2016view pretty

package require Thread

set t [thread::create]

set resultvar() {}

trace add variable resultvar() write {
    unset -nocomplain resultvar()
    puts unset
    list }

thread::send -async $t {
    error "oh no"
} resultvar()

vwait forever