--- a/Collection.st Tue Mar 20 15:03:36 2018 +0100
+++ b/Collection.st Tue Mar 20 15:51:21 2018 +0100
@@ -1739,6 +1739,15 @@
self do:aBlock
!
+asCollectionOrEmptyIfNil
+ "return myself as a Collection.
+ I am already a Collection."
+
+ ^ self
+
+ "Created: / 20-03-2018 / 15:23:18 / stefan"
+!
+
asDictionary
"return a Dictionary with the receiver collection's elements,
using the original keys of the receiver as dictionary key.
@@ -2997,6 +3006,14 @@
"Created: / 28-02-2012 / 21:11:41 / cg"
!
+doIfNotNil:aBlock
+ "evaluate aBlock for each element in the collection"
+
+ ^ self do:aBlock
+
+ "Created: / 20-03-2018 / 15:37:29 / stefan"
+!
+
doWhileTrue:aBlock
"evaluate the argument, aBlock for each element,
until the block evaluates to false.