Data commit

Task/Exceptions/HolyC/exceptions-1.holyc

@@ -0,0 +1,8 @@
+try {
+  U8 *err = 'Error';
+  throw(err); // throw exception
+} catch {
+  if (err == 'Error')
+    Print("Raised 'Error'");
+  PutExcept; // print the exception and stack trace
+}

Task/Exceptions/HolyC/exceptions-2.holyc

@@ -0,0 +1,17 @@
+import Exceptions
+
+procedure main(A)
+    every i := !A do {
+        case Try().call{ write(g(i)) } of {
+            Try().catch(): {
+                x := Try().getException()
+                write(x.getMessage(), ":\n", x.getLocation())
+                }
+            }
+        }
+end
+
+procedure g(i)
+    if numeric(i) = 3 then Exception().throw("bad value of "||i)
+    return i
+end