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

val v = Vector.tabulate (1000, fn i => ())
val r = ref 0
val _ = r := Vector.length v
val _ = print (concat [Int.toString (!r), "\n"])
Commit	Line	Data
7f918cf1 CE	1	val v = Vector.tabulate (1000, fn i => ())
	2	val r = ref 0
	3	val _ = r := Vector.length v
	4	val _ = print (concat [Int.toString (!r), "\n"])