Posted to tcl by aspect at Sun Aug 24 04:13:33 GMT 2014view raw

  1. % set x [dict create x y]
  2. x y
  3. % set y $x
  4. x y
  5. % ::tcl::unsupported::representation $x
  6. value is a dict with a refcount of 8, object pointer at 0xb960b0, internal representation 0xd1dd80:0xcb3d40, string representation "x y"
  7. % ::tcl::unsupported::representation $y
  8. value is a dict with a refcount of 7, object pointer at 0xb960b0, internal representation 0xd1dd80:0xcb3d40, string representation "x y"
  9. % llength $y
  10. 2
  11. % ::tcl::unsupported::representation $y
  12. value is a list with a refcount of 7, object pointer at 0xb960b0, internal representation 0xd296f0:(nil), string representation "x y"
  13.  
  14. % ::tcl::unsupported::representation [dict create x y]
  15. value is a dict with a refcount of 8, object pointer at 0xb960b0, internal representation 0xd56850:(nil), string representation "x y"
  16. % ::tcl::unsupported::representation $y
  17. value is a dict with a refcount of 8, object pointer at 0xb960b0, internal representation 0xd56850:(nil), string representation "x y"
  18. ^^^^
  19. ... wat?