[squeak-dev] The Trunk: Collections-mt.688.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 13 08:21:59 UTC 2016


Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.688.mcz

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

Name: Collections-mt.688
Author: mt
Time: 13 April 2016, 10:21:42.107044 am
UUID: f8eaf0a0-9f3d-bd4d-b350-5437f277b970
Ancestors: Collections-mt.687

Remove infinite generators on streams due to lack of use cases.

=============== Diff against Collections-mt.687 ===============

Item was removed:
- ----- Method: Stream>>collectInfinitely: (in category 'enumerating - infinitely') -----
- collectInfinitely: block
- 
- 	^ Generator on: [:g | 
- 		[
- 			g yield: (self next
- 				ifNil: [nil]
- 				ifNotNil: [:object | block value: object])	
- 		] repeat ]!

Item was removed:
- ----- Method: Stream>>gatherInfinitely: (in category 'enumerating - infinitely') -----
- gatherInfinitely: block
- 
- 	^ Generator on: [:g | 
- 		[
- 			self next
- 				ifNil: [g yield: nil]
- 				ifNotNil: [:object |
- 					(block value: object) in: [:result | | n |
- 						result isStream "Simulate upToNil for infinite gathering."
- 							ifTrue: [ [n := result next] whileNotNil: [g yield: n] ]
- 							ifFalse: [result do: [:ea | g yield: ea]]]]
- 		] repeat ]!

Item was removed:
- ----- Method: Stream>>rejectInfinitely: (in category 'enumerating - infinitely') -----
- rejectInfinitely: aBlock
- 
- 	^ self selectInfinitely: [:element | (aBlock value: element) == false]!

Item was removed:
- ----- Method: Stream>>selectInfinitely: (in category 'enumerating - infinitely') -----
- selectInfinitely: block
- 
- 	^ Generator on: [:g |
- 		[
- 			self next
- 				ifNil: [g yield: nil]
- 				ifNotNil: [:object |
- 					(block value: object)
- 						ifTrue: [g yield: object]]
- 		] repeat ]!

Item was removed:
- ----- Method: Stream>>upToNil (in category 'accessing') -----
- upToNil
- 	"Answer all elements in the stream until a nil shows up."
- 	
- 	| elements next |
- 	elements := OrderedCollection new.
- 	[next := self next] whileNotNil: [ 
- 		elements add: next].
- 	^ elements!



More information about the Squeak-dev mailing list