diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-30 09:42:49 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-30 09:42:49 +0000 |
| commit | 19db7ca2cd5da734002e04984df4968ec3a89959 (patch) | |
| tree | 6a87fe1661c64290d16b166df759c8de914942eb /scripts | |
| parent | 28d905bd62786e0938cd333ddcdc2f7754dd0165 (diff) | |
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
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 8e80e6dcb..34afd2200 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 *) |