diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1997-06-17 16:29:20 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1997-06-17 16:29:20 +0000 |
| commit | 8da977b1f94e7e6929f2930784ee7545b18dc4c7 (patch) | |
| tree | 27b73ce031af31d97ebac3baca96d6b3d080b54f | |
| parent | dad36602330bd59028db320c5dc7f9147e248acb (diff) | |
Fix: lowercase/uppercase: O barre.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1620 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/char.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/char.ml b/stdlib/char.ml index f6a46a0ae..deb477cb0 100644 --- a/stdlib/char.ml +++ b/stdlib/char.ml @@ -48,13 +48,13 @@ let escaped = function let lowercase c = if (c >= 'A' && c <= 'Z') || (c >= '\192' && c <= '\214') - || (c >= '\217' && c <= '\222') + || (c >= '\216' && c <= '\222') then unsafe_chr(code c + 32) else c let uppercase c = if (c >= 'a' && c <= 'z') || (c >= '\224' && c <= '\246') - || (c >= '\249' && c <= '\254') + || (c >= '\248' && c <= '\254') then unsafe_chr(code c - 32) else c |