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

  1. % proc putl args {puts $args}
  2. % trace add variable \{ write putl
  3. % incr \{
  4. \{ {} write
  5. 1
  6. % trace add variable \{ write [list uplevel #0 putl]
  7. % incr \{
  8. can't set "{": missing close-brace
  9.