diff options
| author | barras | 2001-09-17 14:11:13 +0000 |
|---|---|---|
| committer | barras | 2001-09-17 14:11:13 +0000 |
| commit | 9b0512158dafc3a9e9275dc335ac0e63e776ecc4 (patch) | |
| tree | da8d434ef709615923489269e8e2db96736b6e50 /scripts | |
| parent | 8bc40a4932d7ef02fb9ecd28f176346f4980f008 (diff) | |
quotation des noms de fichiers pour eviter une mauvaise interpretation des \
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1974 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqc.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index 981a3431fb..f458e8dcff 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -91,8 +91,9 @@ let compile command args file = let oc = open_out tmpfile in Printf.fprintf oc "Module %s.\n" modulename; Printf.fprintf oc "Load %s\"%s\".\n" - (if !verbose then "Verbose " else "") file; - Printf.fprintf oc "Write Module %s \"%s\".\n" modulename filevo; + (if !verbose then "Verbose " else "") (String.escaped file); + Printf.fprintf oc "Write Module %s \"%s\".\n" modulename + (String.escaped filevo); flush oc; close_out oc; try |