Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / 1.sml
1 functor F () =
2 struct
3 val x = y
4 end
5
6 val y = 13
7
8 structure S = F ()