--- 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