Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / escaping-datatype.sml
1 val _ =
2 let
3 datatype t = T
4 in
5 (T, fn T => 1)
6 end