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
}