Posted to tcl by pooryorick at Fri Jun 02 11:52:20 GMT 2017view raw
- 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
- }