Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.959.mcz

==================== Summary ====================

Name: Collections-ul.959
Author: ul
Time: 13 September 2021, 8:09:57.683039 pm
UUID: 38711725-42d6-45cb-8915-e517d1fc8fd8
Ancestors: Collections-eem.958

- WeakIdentityDictionary and WeakKeyDictionary must implement #at:ifPresent:
- WeakKeyDictionary must also override #at:ifPresent:ifAbsent:
- implement KeyedSet >> #at:ifPresent:ifAbsent: while at these methods
- CharacterSet class >> #cleanUp: was missing two cached instances: Ascii and NonAscii

=============== Diff against Collections-eem.958 ===============

Item was changed:
  ----- Method: CharacterSet class>>cleanUp: (in category 'initialize-release') -----
  cleanUp: aggressive
  
+ 	CrLf := NonSeparators := Separators := Ascii := NonAscii := nil!
- 	CrLf := NonSeparators := Separators := nil!

Item was added:
+ ----- Method: KeyedSet>>at:ifPresent:ifAbsent: (in category 'accessing') -----
+ at: key ifPresent: oneArgBlock ifAbsent: absentBlock
+ 	"Lookup the given key in the receiver. If it is present, answer the
+ 	 value of evaluating the oneArgBlock with the value associated
+ 	 with the key, otherwise answer the value of absentBlock."
+ 
+ 	^(array at: (self scanFor: key))
+ 		ifNil: [ absentBlock value ]
+ 		ifNotNil: [ :value | oneArgBlock value: value enclosedSetElement ]!

Item was added:
+ ----- Method: WeakIdentityDictionary>>at:ifPresent: (in category 'accessing') -----
+ at: key ifPresent: aBlock 
+ 	"Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil."
+ 
+ 	^(array at: (self scanFor: key)) ifNotNil: [ :association |
+ 		association == vacuum ifFalse: [
+ 			aBlock value: association value ] ]!

Item was added:
+ ----- Method: WeakKeyDictionary>>at:ifPresent: (in category 'accessing') -----
+ at: key ifPresent: aBlock
+ 	"Lookup the given key in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil.
+ 	While no nil key can be added, keys become nil when they are garbage collected.
+ 	This must not let nil accidentally 'inherit' the value of such a stale association."
+ 
+ 	^key ifNotNil: [ super at: key ifPresent: aBlock ]!

Item was added:
+ ----- Method: WeakKeyDictionary>>at:ifPresent:ifAbsent: (in category 'accessing') -----
+ at: key ifPresent: oneArgBlock ifAbsent: absentBlock
+ 	"Lookup the given key in the receiver. If it is present, answer the
+ 	 value of evaluating the oneArgBlock with the value associated
+ 	 with the key, otherwise answer the value of absentBlock."
+ 
+ 	^key ifNotNil: [ super at: key ifPresent: oneArgBlock ifAbsent: absentBlock ]!