diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2006-12-18 13:30:07 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2006-12-18 13:30:07 +0000 |
| commit | cb0bf2cc6a832134a724a5cabed9e0b88c5d5443 (patch) | |
| tree | ffbb8e51dfd966300c0fc23be86516c5e8c8349a /stdlib/filename.ml | |
| parent | 5213cb06771ef1b727d87fbb60bb67301c945373 (diff) | |
| download | ocaml-cb0bf2cc6a832134a724a5cabed9e0b88c5d5443.tar.gz | |
bug repere par Nicolas
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7775 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/filename.ml')
| -rw-r--r-- | stdlib/filename.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/filename.ml b/stdlib/filename.ml index 3883a40a96..61237bbc0b 100644 --- a/stdlib/filename.ml +++ b/stdlib/filename.ml @@ -103,6 +103,8 @@ module Win32 = struct | '\\' -> if i + 1 = l then Buffer.add_string b "\\\\" else if s.[i + 1] = '\"' then Buffer.add_string b "\\\\\\\"" else Buffer.add_char b '\\' + | '&' -> if i = 0 then Buffer.add_string b "&\"" + else Buffer.add_string b "\"&\"" | c -> Buffer.add_char b c done; Buffer.add_char b '\"'; |