SequenceableCollection.st
changeset 22169 a272e17de42e
parent 22156 4c24a3e9d33d
child 22223 579090043bea
--- a/SequenceableCollection.st	Tue Aug 08 19:34:52 2017 +0200
+++ b/SequenceableCollection.st	Tue Aug 08 19:35:08 2017 +0200
@@ -432,6 +432,7 @@
     ^ self == SequenceableCollection
 ! !
 
+
 !SequenceableCollection methodsFor:'Compatibility-Squeak'!
 
 allButFirst
@@ -744,6 +745,7 @@
     ^ self replaceFrom:start to:stop with:anArray startingAt:repStart
 ! !
 
+
 !SequenceableCollection methodsFor:'accessing'!
 
 after:anObject
@@ -4950,22 +4952,6 @@
     "
 !
 
-keysAndValuesConform:aTwoArgBlock
-    "evaluate the argument, aBlock for every element in the collection,
-     passing both index and element as arguments.
-     Return false if any such evaluation returns false, true otherwise."
-
-    self keysAndValuesDo:[:index :el | 
-        (aTwoArgBlock value:index value:el) ifFalse:[^  false].
-    ].
-    ^  true
-
-    "
-     #(10 20 30 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
-     #(10 20 30 33 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
-    "
-!
-
 keysAndValuesDo:aTwoArgBlock
     "evaluate the argument, aBlock for every element in the collection,
      passing both index and element as arguments."
@@ -7181,6 +7167,7 @@
     "Created: 14.2.1997 / 16:13:03 / cg"
 ! !
 
+
 !SequenceableCollection methodsFor:'searching'!
 
 detect:aBlock startingAt:startIndex