--- a/Set.st Tue Jun 03 07:07:10 2014 +0200
+++ b/Set.st Tue Jun 03 07:38:32 2014 +0200
@@ -470,7 +470,7 @@
^ oldObjectArg
!
-saveRemove:oldObject
+safeRemove:oldObject
"remove the element, oldObject from the collection.
Return the element
(could be non-identical to oldObject, since I hash on equality, not on identity).
@@ -486,13 +486,13 @@
You may want to manually resize the receiver using #emptyCheck.
(after the loop)"
- ^ self saveRemove:oldObject ifAbsent:[].
+ ^ self safeRemove:oldObject ifAbsent:[].
"Created: / 16.11.2001 / 10:23:48 / cg"
"Modified: / 16.11.2001 / 10:24:03 / cg"
!
-saveRemove:oldObjectArg ifAbsent:exceptionValueProvider
+safeRemove:oldObjectArg ifAbsent:exceptionValueProvider
"remove the element, oldObject from the collection.
Return the element
(could be non-identical to oldObject, since I hash on equality, not on identity).
@@ -579,7 +579,7 @@
s add:9.
s do:[:v |
v odd ifTrue:[
- s saveRemove:v
+ s safeRemove:v
]
].
s inspect
@@ -589,6 +589,20 @@
"Modified: / 16.11.2001 / 10:22:59 / cg"
!
+saveRemove:oldObject
+ <resource: #obsolete>
+ "bad spelling - kept for backward compatibility (2014-06-04)"
+
+ ^ self safeRemove:oldObject.
+!
+
+saveRemove:oldObjectArg ifAbsent:exceptionValueProvider
+ <resource: #obsolete>
+ "bad spelling - kept for backward compatibility (2014-06-04)"
+
+ ^ self safeRemove:oldObjectArg ifAbsent:exceptionValueProvider.
+!
+
testAndAdd:keyArg
"add the argument, anObject to the receiver.
Answer true, if the element did already exist in the collection,
@@ -1296,11 +1310,11 @@
!Set class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.123 2014-03-07 22:06:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.124 2014-06-03 05:38:32 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.123 2014-03-07 22:06:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.124 2014-06-03 05:38:32 stefan Exp $'
! !