Backport from sid to buster
[hcoop/debian/mlton.git] / regression / fail / modules.29.sml
CommitLineData
7f918cf1
CE
1(* Generativity of functors. *)
2functor F () =
3 struct
4 datatype t = T
5 end
6structure S1 = F ()
7structure S2 = F ()
8val _ = S1.T = S2.T