Posted to tcl by evilotto at Wed Jun 05 21:10:49 GMT 2013view raw
- $ tclsh8.6
- % set a 1
- 1
- % set a 1
- 1
- % set a 1
- 1
- % set a 1
- 1
- % set a 1
- 1
- % set a 1
- 1
- % ::tcl::unsupported::representation $a
- value is a int with a refcount of 14, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
- % history clear
- % ::tcl::unsupported::representation $a
- value is a int with a refcount of 8, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
- %