Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / type-use-before-def.sml
1 val r = ref NONE
2 datatype t = T
3 val _ = r := SOME T