Posted to tcl by oldlaptop at Sat Nov 06 17:40:38 GMT 2021view pretty
% proc p1 {} {array set foo {}; p2; parray foo}
% proc p2 {} {upvar foo(key) var; set var hello; puts $var; puts [array get foo]}
% p1
hello
foo(key) = hello
%
% proc p1 {} {array set foo {}; p2; parray foo}
% proc p2 {} {upvar foo(key) var; set var hello; puts $var; puts [array get foo]}
% p1
hello
foo(key) = hello
%