[hcoop/debian/mlton.git] / regression / lambda-list-ref.sml

val r : (int -> int) list ref = ref []

val _ = r := (fn x => x + 1) :: ! r
val _ = r := (fn x => x + 2) :: ! r

val _ = app (fn f => (f 13; ())) (!r)
Commit	Line	Data
7f918cf1 CE	1	val r : (int -> int) list ref = ref []
	2
	3	val _ = r := (fn x => x + 1) :: ! r
	4	val _ = r := (fn x => x + 2) :: ! r
	5
	6	val _ = app (fn f => (f 13; ())) (!r)
	7
	8