[hcoop/debian/mlton.git] / regression / bool-triple.sml

val a = Array.array (100, (true, false, true))
val _ = Array.update (a, 0, (false, true, false))
val b =
   Array.sub (a, 0) = Array.sub (a, 1)
   andalso Array.sub (a, 2) = Array.sub (a, 3)
val _ = print (concat [Bool.toString b, "\n"])
Commit	Line	Data
7f918cf1 CE	1	val a = Array.array (100, (true, false, true))
	2	val _ = Array.update (a, 0, (false, true, false))
	3	val b =
	4	Array.sub (a, 0) = Array.sub (a, 1)
	5	andalso Array.sub (a, 2) = Array.sub (a, 3)
	6	val _ = print (concat [Bool.toString b, "\n"])