A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ul.565.mcz
==================== Summary ====================
Name: Collections-ul.565 Author: ul Time: 3 February 2014, 6:28:21.892 pm UUID: b59d3510-2193-4790-b372-84aa2ff111fa Ancestors: Collections-ul.564
Let the following return true:
| a | a := #(1). { a. a} shouldBePrintedAsLiteral.
=============== Diff against Collections-ul.564 ===============
Item was changed: ----- Method: Array>>shouldBePrintedAsLiteralVisiting: (in category 'testing') ----- shouldBePrintedAsLiteralVisiting: aSet + + | result | self class == Array ifFalse: [^false]. (aSet includes: self) ifTrue: [^false]. aSet add: self. + result := self allSatisfy: [:each | each shouldBePrintedAsLiteralVisiting: aSet]. + aSet remove: self. + ^result! - ^self allSatisfy: [:each | each shouldBePrintedAsLiteralVisiting: aSet]!