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

fun f x = x
fun toy () =
   let
      fun g y = f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f y
   in g 3; g 4
   end
val _ = toy ()
Commit	Line	Data
7f918cf1 CE	1	fun f x = x
	2	fun toy () =
	3	let
	4	fun g y = f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f y
	5	in g 3; g 4
	6	end
	7	val _ = toy ()