Posted to tcl by kbk at Mon Apr 30 17:55:38 GMT 2007view pretty
set dir [file dirname [info script]] set fn [file join $dir leaktest2.tcl] set f [open $fn w] puts $f { set foo {return bar} proc grill {} [subst {$foo}] } close $f interp create child child eval [list source $fn] interp delete child