2 files changed, 6 insertions, 0 deletions
diff --git a/lib/system.ml b/lib/system.ml
index d14956daf9..b3c12f705d 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -60,6 +60,9 @@ let glob s = expand_macros s 0
 type physical_path = string
 type load_path = physical_path list
 
+let physical_path_of_string s = s
+let string_of_physical_path p = p
+
 (* All subdirectories, recursively *)
 
 let exists_dir dir =
diff --git a/lib/system.mli b/lib/system.mli
index 279a6dc3e5..d003a16496 100644
--- a/lib/system.mli
+++ b/lib/system.mli
@@ -20,6 +20,9 @@ val all_subdirs : unix_path:string -> (physical_path * string list) list
 val is_in_path : load_path -> string -> bool
 val where_in_path : load_path -> string -> physical_path * string
 
+val physical_path_of_string : string -> physical_path
+val string_of_physical_path : physical_path -> string
+
 val make_suffix : string -> string -> string
 val file_readable_p : string -> bool