--- a/Block.st Wed May 30 15:16:56 2018 +0200
+++ b/Block.st Wed May 30 21:20:26 2018 +0200
@@ -2307,10 +2307,12 @@
e := 0.
[
- 1 foo
- ] on:MessageNotUnderstood
- do:[:ex | self halt]
- ensure:[ e := 1 ].
+ 1 foo
+ ] on:MessageNotUnderstood do:[:ex |
+ self halt
+ ] ensure:[
+ e := 1
+ ].
self assert:(e == 1).
"
@@ -2319,12 +2321,16 @@
e := 0.
[
- 1 negated
- ] on:MessageNotUnderstood
- do:[:ex | self halt]
- ensure:[ e := 1 ].
+ 1 negated
+ ] on:MessageNotUnderstood do:[:ex |
+ self halt
+ ] ensure:[
+ e := 1
+ ].
self assert:(e == 1).
"
+
+ "Modified (comment): / 30-05-2018 / 21:20:14 / Claus Gittinger"
!
on:aSignalOrSignalSetOrException do:exceptionBlock ifCurtailed:curtailBlock