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

datatype t = A of t

fun f (A y) = f y

fun g () = A (g ())

val _ = f (g ())
Commit	Line	Data
7f918cf1 CE	1	datatype t = A of t
	2
	3	fun f (A y) = f y
	4
	5	fun g () = A (g ())
	6
	7	val _ = f (g ())