Posted to tcl by aspect at Mon Oct 03 06:03:40 GMT 2016view pretty

% proc putl args {puts $args}
% trace add variable \{ write putl
% incr \{
\{ {} write
1
% trace add variable \{ write [list uplevel #0 putl]
% incr \{
can't set "{": missing close-brace