Set.st
changeset 16515 6641d9cd92a6
parent 16241 7f73a12c32e1
child 16717 ce1544557168
--- 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 $'
 ! !