CDE

Task/Exceptions/ALGOL-68/exceptions-2.alg

@@ -0,0 +1,8 @@
+OBJECTFOO foo proxy := foo base; # event routines are specific to an foo #
+
+on foo event(foo proxy, raise foo event);
+
+WHILE TRUE DO
+  # now raise example foo event #
+  IF NOT (foo event mended OF foo proxy)(foo proxy) THEN undefined # trace back # FI
+OD;