MappedCollection.st
changeset 4270 3c9fa01002e2
parent 3862 d8bdc6819c50
child 4959 e30244256dd8
--- 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'!