The Trunk: Collections-mt.816.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Collections-mt.816.mcz

commits-2
Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.816.mcz

==================== Summary ====================

Name: Collections-mt.816
Author: mt
Time: 25 January 2019, 9:34:00.676997 am
UUID: d70f1d8e-6eb9-204c-86fc-e538f8efec98
Ancestors: Collections-mt.815

Generalize try-ignore. See discussion: http://forum.world.st/The-Inbox-Collections-mt-812-mcz-tp5091227.html

=============== Diff against Collections-mt.815 ===============

Item was changed:
  ----- Method: Collection>>try:ignore: (in category 'enumerating') -----
  try: aBlock ignore: exceptionOrExceptionSet
  "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue."
 
  ^ self
  try: aBlock
  ignore: exceptionOrExceptionSet
+ ifException: nil!
- logged: false!

Item was added:
+ ----- Method: Collection>>try:ignore:ifException: (in category 'enumerating') -----
+ try: aBlock ignore: exceptionOrExceptionSet ifException: unaryBlockOrNil
+       "Evaluate aBlock with each of the receiver's elements as the argument. On error, evaluate a block and/or continue."
+
+       ^ self do: [:ea |
+               [aBlock value: ea]
+                       on: exceptionOrExceptionSet
+                       do: [:err | unaryBlockOrNil ifNotNil: [unaryBlockOrNil value: err]]]!

Item was changed:
  ----- Method: Collection>>try:ignore:logged: (in category 'enumerating') -----
  try: aBlock ignore: exceptionOrExceptionSet logged: aBoolean
  "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue."
 
+ ^ self
+ try: aBlock
+ ignore: exceptionOrExceptionSet
+ ifException: (aBoolean ifTrue: [[:err| Transcript showln: err messageText]])!
- ^ self do: [:ea |
- [aBlock value: ea]
- on: exceptionOrExceptionSet
- do: [:err | aBoolean ifTrue: [Transcript showln: err messageText]]]!