A new version of Collections was added to project The Inbox:
http://source.squeak.org/inbox/Collections-mt.942.mcz

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

Name: Collections-mt.942
Author: mt
Time: 15 April 2021, 10:10:36.948715 am
UUID: 663ded23-ec3c-44bf-9e67-8fe2384b94cc
Ancestors: Collections-ul.940, Collections-mt.938

Updates the proposal with "as:" to let clients configure the collection class if #species does not fit. Thanks Levente (ul) for the tip!

(Also merges from Collections-ul.940, which is current in Trunk.)

=============== Diff against Collections-ul.940 ===============

Item was added:
+ ----- Method: Collection>>collect:as:separatedBy: (in category 'enumerating') -----
+ collect: elementBlock as: aClass separatedBy: separatorBlock
+ 	"Evaluate the elementBlock for all elements in the receiver, and evaluate the separatorBlock between. Collect the resulting values of both blocks into a collection like the receiver. Answer the new collection."
+ 
+ 	| newCollection |
+ 	newCollection := aClass new.
+ 	self
+ 		do: [:each | newCollection add: (elementBlock value: each)]
+ 		separatedBy: [:each | newCollection add: separatorBlock value].
+ 	^ newCollection!

Item was added:
+ ----- Method: Collection>>collect:separatedBy: (in category 'enumerating') -----
+ collect: elementBlock separatedBy: separatorBlock
+ 	
+ 	^ self
+ 		collect: elementBlock
+ 		as: self species
+ 		separatedBy: separatorBlock!

Item was added:
+ ----- Method: SequenceableCollection>>collect:as:separatedBy: (in category 'enumerating') -----
+ collect: elementBlock as: aClass separatedBy: separatorBlock
+ 	"Evaluate the elementBlock for all elements in the receiver, and evaluate the separatorBlock between. Collect the resulting values of both blocks into a collection like the receiver. Answer the new collection."
+ 
+ 	| newCollection |
+ 	newCollection := aClass ofSize: self size *2 -1.
+ 	1 to: self size do: [:index |
+ 		index = 1 ifFalse: [newCollection at: (index-1 *2) put: separatorBlock value].
+ 		newCollection at: (index-1 *2)+1 put: (elementBlock value: (self at: index))].
+ 	^ newCollection!