From 19db7ca2cd5da734002e04984df4968ec3a89959 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Fri, 30 Nov 2001 09:42:49 +0000
Subject: Ajout d'un "\" pour proteger un autre "\" et ainsi etre compatible
 avec ocaml 3.03 malgre un bug de lexing dans camlp4.

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

(limited to 'scripts')

diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml
index 8e80e6dcb3..34afd2200d 100644
--- a/scripts/coqmktop.ml
+++ b/scripts/coqmktop.ml
@@ -83,7 +83,7 @@ let native_suffix f =
 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
+  let s = Str.replace_first rem_ext_regexpr "\\1" (Filename.basename name) in
   String.capitalize s
 
 (* Build the list of files to link and the list of modules names *)
-- 
cgit v1.2.3