[hcoop/debian/mlton.git] / regression / 2.sml

datatype t = A | B

val f =
   fn A => 1
    | B => 2

val _ = f(raise Overflow)
val _ = f(raise Bind)
Commit	Line	Data
7f918cf1 CE	1	datatype t = A \| B
	2
	3	val f =
	4	fn A => 1
	5	\| B => 2
	6
	7	val _ = f(raise Overflow)
	8	val _ = f(raise Bind)