diff options
| author | Pierre Habouzit <pierre.habouzit@m4x.org> | 2005-05-31 12:50:12 +0000 |
|---|---|---|
| committer | Pierre Habouzit <pierre.habouzit@m4x.org> | 2005-05-31 12:50:12 +0000 |
| commit | 3b1ade692156b7a82fb51daed793e173d33fc4f2 (patch) | |
| tree | 2c69c725dec2dd9d17fac876cd4226ebe5ab40af /parsing/parser.mly | |
| parent | 440fb13ed9d3019de9bd999370716f0ffc77c6ad (diff) | |
| download | ocaml-jocamltrunk+cduce.tar.gz | |
backport from jocamljocamltrunk+cduce
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/jocamltrunk+cduce@6897 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing/parser.mly')
| -rw-r--r-- | parsing/parser.mly | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/parsing/parser.mly b/parsing/parser.mly index f9f407cf3c..bd6c4ee22f 100644 --- a/parsing/parser.mly +++ b/parsing/parser.mly @@ -1056,7 +1056,10 @@ expr: | OBJECT class_structure error { unclosed "object" 1 "end" 3 } /*> JOCAML */ - | REPLY TO joinident { mkexp(Pexp_reply(ghexp(Pexp_ident (Lident "()")), $3)) } + | REPLY TO joinident + { mkexp + (Pexp_reply + (ghexp (Pexp_construct (Lident "()", None, false)), $3)) } | REPLY expr TO joinident { mkexp(Pexp_reply($2,$4)) } | SPAWN expr { mkexp(Pexp_spawn $2) } | DEF joinautomaton_list_AND IN seq_expr { mkexp(Pexp_def($2,$4)) } |