Commits

Markus Mottl committed 3b7089b

Fixed build problems

Comments (0)

Files changed (2)

base/core/lib/core_string.ml

         done;
         true
       with e ->
-        raise e;
-        false
+        raise e
 
     TEST = random_test 1000 ~escapeworthy_map:['%','p';'^','c'] ~escape_char:'_'
     TEST = random_test 1000 ~escapeworthy_map:['_','.';'%','p';'^','c'] ~escape_char:'_'

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)