NicolasPetton/amber — Issue #108: Set>>select:
Author: PetrSpacek
Created: 2011-11-21 16:28:21+00:00
State: open

When performing select on a Set the "a Set does not understand #at:put:" error occurs. For example run:
1: ((Set with: 1 with: 2 with: 3) select: [:e | e = 1] )

Set inherits collect: from Collection.

1: select: aBlock
2:	| stream |
3:	stream := self class new writeStream.
4:	self do: [:each |
5:	(aBlock value: each) ifTrue: [
6:	stream nextPut: each]].
7:	^stream contents

The problem is line 3 where a stream is created on a collection which is type of Set,
on line 6 this raises the error, because stream's nextPut: sends "self collection at: self position put: anObject."
but Set's are not sequenceable.