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

fun f x = x

val r: (int -> int) ref = ref f

val _ = r := (fn y => y)

val _ = !r 13 + 1
Commit	Line	Data
7f918cf1 CE	1	fun f x = x
	2
	3	val r: (int -> int) ref = ref f
	4
	5	val _ = r := (fn y => y)
	6
	7	val _ = !r 13 + 1