Posted to tcl by kbk at Sat Oct 02 02:46:34 GMT 2010view raw
- $ tclsh8.6
- % set d {a 1 b 2 c 3}
- a 1 b 2 c 3
- % dict append d b 22
- a 1 b 222 c 3
- % proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
- % x
- a 1 b 2 c 3
- % exit
- $ tclsh8.5
- % set d {a 1 b 2 c 3}
- a 1 b 2 c 3
- % dict append d b 22
- a 1 b 222 c 3
- % proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
- % x
- a 1 b 222 c 3
- % exit