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