--- a/WeakValueIdentityDictionary.st Sun Apr 03 07:04:52 2016 +0200
+++ b/WeakValueIdentityDictionary.st Fri Apr 08 07:02:36 2016 +0100
@@ -178,10 +178,6 @@
!WeakValueIdentityDictionary methodsFor:'private'!
-slotIsEmpty:probe
- ^ probe isNil or:[probe == 0 "collected"]
-!
-
valueContainerOfSize:n
"return a container for values of size n.
use WeakArrays here."
@@ -204,14 +200,14 @@
|val|
(OperatingSystem blockInterrupts) ifTrue:[
- "/ already blocked
- ^ super includes:anObject.
+ "/ already blocked
+ ^ super includes:anObject.
].
[
- val := super includes:anObject.
- ] valueNowOrOnUnwindDo:[
- OperatingSystem unblockInterrupts.
+ val := super includes:anObject.
+ ] ensure:[
+ OperatingSystem unblockInterrupts.
].
^ val
@@ -227,14 +223,14 @@
|val|
(OperatingSystem blockInterrupts) ifTrue:[
- "/ already blocked
- ^ super includesKey:key.
+ "/ already blocked
+ ^ super includesKey:key.
].
[
- val := super includesKey:key.
- ] valueNowOrOnUnwindDo:[
- OperatingSystem unblockInterrupts.
+ val := super includesKey:key.
+ ] ensure:[
+ OperatingSystem unblockInterrupts.
].
^ val
@@ -253,6 +249,10 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !