[hcoop/debian/mlton.git] / regression / poly-equal.sml

val _ =
   print(if ([1, 2, 3], [4, 5]) = ([1, 2, 3], [4])
            then "true\n"
         else "false\n")
Commit	Line	Data
7f918cf1 CE	1	val _ =
	2	print(if ([1, 2, 3], [4, 5]) = ([1, 2, 3], [4])
	3	then "true\n"
	4	else "false\n")