[hcoop/debian/mlton.git] / regression / array4.sml

fun f n =
   if 0 = Array.sub (Array.tabulate (n, fn i => i), 0)
      then ()
   else f 13

val _ = (f 0; raise Fail "bug") handle Subscript => ()
val _ = f 1
Commit	Line	Data
7f918cf1 CE	1	fun f n =
	2	if 0 = Array.sub (Array.tabulate (n, fn i => i), 0)
	3	then ()
	4	else f 13
	5
	6	val _ = (f 0; raise Fail "bug") handle Subscript => ()
	7	val _ = f 1