regression/lambda-list-ref.sml

   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