diff options
| author | filliatr | 2002-09-17 20:52:56 +0000 |
|---|---|---|
| committer | filliatr | 2002-09-17 20:52:56 +0000 |
| commit | 655b95012717f3b9fba714f591dfdb39d0174200 (patch) | |
| tree | 27ad05ea6d7b859621cf2b558a873390686e8bb7 /scripts | |
| parent | 861ccf4dd736b911ba0149550e298ce9fddf4c80 (diff) | |
echappements incorrects dans chaine
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3015 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
| -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 |