--- a/Set.st Fri Mar 07 23:06:33 2014 +0100
+++ b/Set.st Fri Mar 07 23:06:42 2014 +0100
@@ -198,7 +198,6 @@
"Created: / 24.10.1997 / 23:13:44 / cg"
! !
-
!Set methodsFor:'Compatibility-ST80'!
initialIndexFor:hashKey boundedBy:length
@@ -834,7 +833,7 @@
startIndex := index := self initialIndexForKey:key.
- [true] whileTrue:[
+ [
probe := (keyArray basicAt:index).
(probe notNil and:[probe ~~ DeletedEntry and:[key = probe]]) ifTrue:[^ index].
(self slotIsEmpty:probe) ifTrue:[^ aBlock value].
@@ -845,7 +844,7 @@
index := index + 1
].
index == startIndex ifTrue:[^ aBlock value].
- ]
+ ] loop.
"Modified: / 03-02-2011 / 13:53:18 / sr"
!
@@ -871,7 +870,7 @@
length := keyArray basicSize.
startIndex := index := self initialIndexForKey:key.
- [true] whileTrue:[
+ [
probe := keyArray basicAt:index.
(probe notNil and:[probe ~~ DeletedEntry and:[key = probe]]) ifTrue:[^ index].
(self slotIsEmpty:probe) ifTrue:[
@@ -898,7 +897,7 @@
].
^ self grow findKeyOrNil:key
].
- ]
+ ] loop.
"Modified: / 27-02-2011 / 15:30:42 / cg"
!
@@ -1179,7 +1178,7 @@
startIndex := index := self initialIndexForKey:key.
count := 0.
- [true] whileTrue:[
+ [
probe := keyArray basicAt:index.
(probe notNil and:[key = probe]) ifTrue:[^ count].
(self slotIsEmpty:probe) ifTrue:[self error:'non existing key'].
@@ -1191,7 +1190,7 @@
].
count := count + 1.
index == startIndex ifTrue:[self error:'non existing key'].
- ]
+ ] loop.
!
maxChainLength
@@ -1297,11 +1296,11 @@
!Set class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.122 2013-11-14 15:33:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.123 2014-03-07 22:06:42 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.122 2013-11-14 15:33:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.123 2014-03-07 22:06:42 stefan Exp $'
! !