OrderedSet.st
changeset 16516 c9a60c35224d
parent 15878 ed345dd0ab0c
child 16809 130ac3b00ad5
--- a/OrderedSet.st	Tue Jun 03 07:38:32 2014 +0200
+++ b/OrderedSet.st	Tue Jun 03 07:39:18 2014 +0200
@@ -298,7 +298,7 @@
     ^ self remove:lastElement.
 !
 
-saveRemove:oldObject ifAbsent:exceptionValueProvider
+safeRemove:oldObject 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).
@@ -316,7 +316,7 @@
 
     |removedObject|
 
-    removedObject := super saveRemove:oldObject ifAbsent:[^ exceptionValueProvider value].
+    removedObject := super safeRemove:oldObject ifAbsent:[^ exceptionValueProvider value].
     order removeIdentical:removedObject.
 
     ^ removedObject
@@ -418,10 +418,10 @@
 !OrderedSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.25 2013-12-17 20:54:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.26 2014-06-03 05:39:18 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.25 2013-12-17 20:54:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.26 2014-06-03 05:39:18 stefan Exp $'
 ! !