--- a/Bag.st Fri Jan 22 13:25:31 2016 +0100
+++ b/Bag.st Fri Jan 22 13:26:30 2016 +0100
@@ -237,21 +237,21 @@
!
remove:oldObject ifAbsent:anExceptionBlock
- "Remove oldObject from the collection.
+ "Remove one occurrence of oldObject from the collection.
If it was not present, return the value of the exceptionBlock;
otherwise return the removed object.
WARNING: do not add/remove elements while iterating over the receiver.
- Iterate over a copy to do this."
+ Iterate over a copy to do this."
|count|
count := contents at:oldObject ifAbsent:0.
(count == 0) ifTrue:[^ anExceptionBlock value].
(count == 1) ifTrue:[
- contents removeKey:oldObject
+ contents removeKey:oldObject
] ifFalse:[
- contents at:oldObject put:(count - 1)
+ contents at:oldObject put:(count - 1)
].
^ oldObject
@@ -554,10 +554,10 @@
!Bag class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
+ ^ '$Header$'
! !