Posted to tcl by pooryorick at Fri Jun 03 13:34:40 GMT 2016view raw
- namespace eval n1 {
- namespace ensemble create -map [list p1 [list ::apply [list {} {tailcall p2} [namespace current]]]]
- proc p2 {} {set name [uplevel 1 [list ::namespace origin [lindex [info level 0] 0]]]}
- }
- namespace eval n2 {puts [n1 p1]}