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

fun h f = f 13
   
fun f x = let fun z x = z(x + 1)
          in h z
          end
   
val r : (int -> int) ref = ref f

val _ = h(fn x => x)
Commit	Line	Data
7f918cf1 CE	1	fun h f = f 13
	2
	3	fun f x = let fun z x = z(x + 1)
	4	in h z
	5	end
	6
	7	val r : (int -> int) ref = ref f
	8
	9	val _ = h(fn x => x)