author | Claus Gittinger <cg@exept.de> |
Thu, 22 Jan 2009 21:25:33 +0100 | |
changeset 11490 | cfb0dc5cc606 |
parent 11489 | 6009fd847761 |
child 11491 | 4920830c3d9a |
--- a/Bag.st Thu Jan 22 21:24:47 2009 +0100 +++ b/Bag.st Thu Jan 22 21:25:33 2009 +0100 @@ -229,7 +229,7 @@ |accu| - self emptyCheck. + self isEmpty ifTrue:[ 0 ]. accu := nil. self @@ -398,5 +398,5 @@ !Bag class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.36 2009-01-19 12:17:26 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.37 2009-01-22 20:25:33 cg Exp $' ! !