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