diff options
| author | Alain Frisch <alain@frisch.fr> | 2011-12-21 08:58:56 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2011-12-21 08:58:56 +0000 |
| commit | d79455bc76b260455bd6a443a6d8149df6602241 (patch) | |
| tree | c7d56544e11a13d6ba4dcc6c85987fdc21d6c95c /typing | |
| parent | 8c16e88983a7788bc78a2bcf702b2b615852289a (diff) | |
| download | ocaml-d79455bc76b260455bd6a443a6d8149df6602241.tar.gz | |
New syntax for 'custom let bindings': let.simple_expr pat = expr in expr
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11906 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'typing')
| -rw-r--r-- | typing/oprint.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/typing/oprint.ml b/typing/oprint.ml index fa5f458709..21ef160806 100644 --- a/typing/oprint.ml +++ b/typing/oprint.ml @@ -32,9 +32,9 @@ let parenthesized_ident name = (List.mem name ["or"; "mod"; "land"; "lor"; "lxor"; "lsl"; "lsr"; "asr"]) || (match name.[0] with - | 'l' when String.length name > 3 && String.sub name 0 3 = "let" -> true - | 'a'..'z' | 'A'..'Z' | '\223'..'\246' | '\248'..'\255' | '_' -> false - | _ -> true) + 'a'..'z' | 'A'..'Z' | '\223'..'\246' | '\248'..'\255' | '_' -> + false + | _ -> true) let value_ident ppf name = if parenthesized_ident name then |