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]]
}