Import Debian changes 20180207-1
[hcoop/debian/mlton.git] / regression / poly-equal.sml
... / ...
CommitLineData
1val _ =
2 print(if ([1, 2, 3], [4, 5]) = ([1, 2, 3], [4])
3 then "true\n"
4 else "false\n")