From 655b95012717f3b9fba714f591dfdb39d0174200 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 17 Sep 2002 20:52:56 +0000
Subject: echappements incorrects dans chaine

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3015 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 scripts/coqmktop.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3