diff options
| author | Alain Frisch <alain@frisch.fr> | 2009-10-21 14:00:43 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2009-10-21 14:00:43 +0000 |
| commit | 57dcb6376b811cbf5574309846636b86d870a8b6 (patch) | |
| tree | e3ab0c12844f41b13076f1017b7870b180783e09 /parsing/parser.mly | |
| parent | e0883212f6558d931bdbf2a52e81e1263d20fb46 (diff) | |
| download | ocaml-letopenin.tar.gz | |
Initial commit on this branch.letopenin
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/letopenin@9387 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing/parser.mly')
| -rw-r--r-- | parsing/parser.mly | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/parser.mly b/parsing/parser.mly index 761b5a9741..f7de4188f0 100644 --- a/parsing/parser.mly +++ b/parsing/parser.mly @@ -825,6 +825,10 @@ expr: { mkexp(Pexp_let($2, List.rev $3, $5)) } | LET MODULE UIDENT module_binding IN seq_expr { mkexp(Pexp_letmodule($3, $4, $6)) } + | LET OPEN mod_longident IN seq_expr + { mkexp(Pexp_open($3, $5)) } + | mod_longident DOT LPAREN seq_expr RPAREN + { mkexp(Pexp_open($1, $4)) } | FUNCTION opt_bar match_cases { mkexp(Pexp_function("", None, List.rev $3)) } | FUN labeled_simple_pattern fun_def |