diff options
| -rw-r--r-- | scripts/coqmktop.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index f15ac3d78f..9ba53cdaec 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -80,7 +80,7 @@ let native_suffix f = failwith ("File "^f^" has not extension .cmo or .cma") (* Transforms a file name in the corresponding Caml module name. *) -let rem_ext_regexpr = Str.regexp "\(.*\)\.\(cm..?\|ml\)" +let rem_ext_regexpr = Str.regexp "\\(.*\\)\\.\\(cm..?\\|ml\\)" let module_of_file name = let s = Str.replace_first rem_ext_regexpr "\\1" (Filename.basename name) in |