--- a/SequenceableCollection.st Thu Apr 07 14:43:12 2016 +0200
+++ b/SequenceableCollection.st Thu Apr 07 14:44:06 2016 +0200
@@ -398,6 +398,7 @@
^ self == SequenceableCollection
! !
+
!SequenceableCollection methodsFor:'Compatibility-Squeak'!
allButFirst
@@ -2183,7 +2184,7 @@
h := h bitAnd:16r01FFFFFF.
h := (h bitShift:5) + (self at:mySize) hash.
h := h bitAnd:16r01FFFFFF.
- h := (h bitShift:5) + self size.
+ h := (h bitShift:5) + mySize.
^ h bitAnd:16r3FFFFFFF.
"/ cg: the code below may lead to largeInteger arithmetic, which was slow...
@@ -7783,6 +7784,7 @@
"Created: 14.2.1997 / 16:13:03 / cg"
! !
+
!SequenceableCollection methodsFor:'searching'!
detect:aBlock startingAt:startIndex