Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / dead.sml
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 ())