Posted to tcl by pooryorick at Fri Jun 02 11:52:20 GMT 2017view pretty
namespace eval ns1 { namespace delete [namespace current] namespace eval [namespace current] {} namespace eval doc {} set doc::var1 val1 ::apply [list {} { namespace eval doc {} set doc::var1 val2 puts $doc::var1 } [namespace current]] puts $doc::var1 }