[hcoop/debian/mlton.git] / regression / fail / escaping-datatype.sml

val _ =
   let
      datatype t = T
   in
      (T, fn T => 1)
   end
Commit	Line	Data
7f918cf1 CE	1	val _ =
	2	let
	3	datatype t = T
	4	in
	5	(T, fn T => 1)
	6	end