Commits

Yaron Minsky  committed c0e9df7

bugfix

  • Participants
  • Parent commits 74fe585

Comments (0)

Files changed (1)

File base/core/lib/exn.ml

 let protect ~f ~finally = protectx ~f () ~finally
 
 let pp ppf t =
-  match sexp_of_exn_opt with
+  match sexp_of_exn_opt t with
   | Some sexp -> Sexp.pp_hum ppf sexp
   | None -> Format.fprintf ppf "%s" (Printexc.to_string t)