'From Squeak3.7gamma of ''17 July 2004'' [latest update: #5978] on 14 September 2004 at 12:16:32 am'! !Dictionary methodsFor: 'comparing' stamp: 'cmm 9/14/2004 00:01'! = aDictionary "Two dictionaries are equal if (a) they are the same 'kind' of thing. (b) they have the same set of keys. (c) for each (common) key, they have the same value". self == aDictionary ifTrue: [ ^ true ]. (aDictionary isKindOf: Dictionary) ifFalse: [^false]. self size = aDictionary size ifFalse: [^false]. self associationsDo: [:assoc| (aDictionary at: assoc key ifAbsent: [^false]) = assoc value ifFalse: [^false]]. ^true ! !