Posted to tcl by kbk at Sat Oct 02 02:46:34 GMT 2010view raw

  1. $ tclsh8.6
  2. % set d {a 1 b 2 c 3}
  3. a 1 b 2 c 3
  4. % dict append d b 22
  5. a 1 b 222 c 3
  6. % proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
  7. % x
  8. a 1 b 2 c 3
  9. % exit
  10.  
  11. $ tclsh8.5
  12. % set d {a 1 b 2 c 3}
  13. a 1 b 2 c 3
  14. % dict append d b 22
  15. a 1 b 222 c 3
  16. % proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
  17. % x
  18. a 1 b 222 c 3
  19. % exit