Don't trigger an assertion failure when loading the shim location module.

285fbb37 · Kim Nguyễn · Pietro Abate · e4dc2756 · 285fbb37
Commit 285fbb37 authored Aug 07, 2014 by Kim Nguyễn Committed by Pietro Abate Sep 08, 2014
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

ocamliface/4.02/location.ml ocamliface/4.02/location.ml +1 -1

No files found.
--- a/ocamliface/4.02/location.ml
+++ b/ocamliface/4.02/location.ml
@@ -40,7 +40,7 @@ let show_filename = dummy
 let absname = ref true
 let report_exception = dummy
 let report_error = dummy
-let register_error_of_exn = dummy
+let register_error_of_exn _ = ()
 let error_of_exn = dummy
 let error_of_printer_file = dummy
 let error_of_printer = dummy