[ENH] ifNotEmptyCleans

Thu Sep 30 08:04:59 UTC 2004

from preamble:

"Change Set:		KCP
Date:			30 September 2004
Author:			stephane ducasse

transform 
Collection>>ifNotEmpty: aBlock 

	^ self isEmpty
		ifFalse: [aBlock valueWithPossibleArgs: {self}]

into 

ifNotEmpty: aBlock 
	
	^ self isEmpty
		ifFalse: [aBlock value]

which corresponds to the method comment
	Evaluate the block unless I'm empty"
	!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ifNotEmptyCleans.cs.gz
Type: application/octet-stream
Size: 352 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20040930/bb2b2f6f/ifNotEmptyCleans.cs.obj