diff options
| author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-01-20 06:18:17 +0000 |
|---|---|---|
| committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2002-01-20 06:18:17 +0000 |
| commit | 0b186092542c0472df927e8280188630f99cab7c (patch) | |
| tree | b994d723759b3c0e9c5f4a758c67569be30dc9d7 /camlp4 | |
| parent | ac0e0513624bfd8205cec226c9b8a95f6721e16c (diff) | |
-
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4275 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4')
| -rw-r--r-- | camlp4/etc/pr_r.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/etc/pr_r.ml b/camlp4/etc/pr_r.ml index 7d2de60c3..f6ede4bcf 100644 --- a/camlp4/etc/pr_r.ml +++ b/camlp4/etc/pr_r.ml @@ -517,10 +517,10 @@ value rec sequence_loop = in let r = flag "rec" r in [: listwbws (fun b (p, e) k -> let_binding b (p, e) k) - [: `S LR "let"; r :] (S LR "and") pel [: `S RO ";" :]; + [: `S LR "let"; r :] (S LR "and") pel [: `S LR "in" :]; sequence_loop el :] | [(<:expr< let $rec:_$ $list:_$ in $_$ >> as e) :: el] -> - [: `HVbox [: `S LO "("; `expr e [: `S RO ")"; `S RO ";" :] :]; + [: `HVbox [: `S LO "("; `expr e [: `S RO ")"; `S LR "in" :] :]; sequence_loop el :] | [e] -> [: `expr e [: :] :] | [e :: el] -> [: `expr e [: `S RO ";" :]; sequence_loop el :] |