Posted to tcl by kbk at Sun Jan 17 23:12:08 GMT 2010view pretty

rename proc hiddenProc 
hiddenProc proc {name arglist body} { 
    set newbody [linsert $::superglobals 0 global]\;$body
    hiddenProc $name $arglist $newbody
}
set superglobals {fred barney}
set fred Hello
set barney world
proc test {} { puts "$fred, $barney!" }
test