Block.st
changeset 21669 e4f126423851
parent 21667 f77efdbadc44
child 21678 f765433a638d
--- a/Block.st	Thu Mar 23 09:01:27 2017 +0100
+++ b/Block.st	Fri Mar 24 09:34:19 2017 +0100
@@ -2418,6 +2418,20 @@
      ifCurtailed:[ e := 1 ].
      self assert:(e == 0).
     "
+
+
+    "
+     |e|
+
+     e := 0.
+     [
+        1 foo
+     ] on:MessageNotUnderstood do:[:ex | 2 bla]
+       ifCurtailed:[ e := 1 ].
+     self assert:(e == 0).
+    "
+
+    "Modified (comment): / 23-03-2017 / 19:10:31 / stefan"
 !
 
 on:anExceptionHandler do:exceptionBlock on:anExceptionHandler2 do:anExceptionBlock2