regression/exn-history.sml

   1 fun f x =
   2    if x = 0
   3       then raise Fail "ok"
   4    else f (x - 1) handle Overflow => 13
   5
   6 val _ = (f 10; ()) handle e => (List.app (fn s => print (concat [s, "\n"]))
   7                                 (SMLofNJ.exnHistory e))