Posted to tcl by pooryorick at Fri Jun 02 11:13:25 GMT 2017view pretty
namespace eval ns1 { namespace delete [namespace current] namespace eval [namespace current] {} namespace eval doc {} set doc::var1 val1 ::apply [list {} { puts $doc::var1 ;# -> can't read "$doc::var1": no such variable } [namespace current]] }