Block.st
changeset 23040 e1ee1b6f7e66
parent 22996 779c5f211e30
child 23432 2aa324c941dd
--- 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