Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.391.mcz==================== Summary ====================
Name: Kernel-cmm.391
Author: cmm
Time: 7 February 2010, 5:07:37.371 pm
UUID: 14cf6095-5b96-4bbb-aa1c-fa8aab77b0b8
Ancestors: Kernel-mtf.390
Added BlockClosure>>#on:do:on:do: and #on:do:on:do:on:do:.
=============== Diff against Kernel-mtf.390 ===============
Item was added:
+ ----- Method: BlockClosure>>on:do:on:do:on:do: (in category 'exceptions') -----
+ on: exc1 do: block1 on: exc2 do: block2 on: exc3 do: block3
+
+ ^[
+ [ self value ]
+ on: exc1
+ do: block1 ]
+
+ on: exc2
+ do: block2
+
+ on: exc3
+ do: block3!
Item was added:
+ ----- Method: BlockContext>>on:do:on:do: (in category 'exceptions') -----
+ on: exc1 do: block1 on: exc2 do: block2
+
+ ^[
+ [ self value ]
+ on: exc1
+ do: block1 ]
+
+ on: exc2
+ do: block2!
Item was added:
+ ----- Method: BlockContext>>on:do:on:do:on:do: (in category 'exceptions') -----
+ on: exc1 do: block1 on: exc2 do: block2 on: exc3 do: block3
+
+ ^[
+ [ self value ]
+ on: exc1
+ do: block1 ]
+
+ on: exc2
+ do: block2
+
+ on: exc3
+ do: block3!
Item was added:
+ ----- Method: BlockClosure>>on:do:on:do: (in category 'exceptions') -----
+ on: exc1 do: block1 on: exc2 do: block2
+
+ ^[
+ [ self value ]
+ on: exc1
+ do: block1 ]
+
+ on: exc2
+ do: block2!