langs a-z

Task/Exceptions/Standard-ML/exceptions-1.ml

@@ -0,0 +1,2 @@
+exception MyException;
+exception MyDataException of int; (* can be any first-class type, not just int *)

Task/Exceptions/Standard-ML/exceptions-2.ml

@@ -0,0 +1,2 @@
+fun f() = raise MyException;
+fun g() = raise MyDataException 22;

Task/Exceptions/Standard-ML/exceptions-3.ml

@@ -0,0 +1,2 @@
+val x = f() handle MyException => 22;
+val y = f() handle MyDataException x => x;