--- a/MappedCollection.st Fri Jan 20 19:52:31 2017 +0100
+++ b/MappedCollection.st Fri Jan 20 20:03:37 2017 +0100
@@ -133,34 +133,10 @@
!MappedCollection methodsFor:'enumerating'!
-collect:aBlock
- "for each element in the receiver, evaluate the argument, aBlock
- and return a new collection with the results"
-
- |newCollection|
-
- newCollection := self speciesForAdding new:self size.
- self do:[:each | newCollection add:(aBlock value:each)].
- ^ newCollection
-!
-
do:aBlock
"evaluate the argument, aBlock for each element"
map do:[:mapValue | aBlock value:(domain at:mapValue)].
-!
-
-select:aBlock
- "return a new collection with all elements from the receiver, for which
- the argument aBlock evaluates to true"
-
- |newCollection|
-
- newCollection := self speciesForAdding new:self size.
- self do:[:each |
- (aBlock value:each) ifTrue:[newCollection add:each].
- ].
- ^ newCollection
! !
!MappedCollection methodsFor:'private'!