diff options
| author | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-08 18:44:56 +0000 |
|---|---|---|
| committer | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-08 18:44:56 +0000 |
| commit | 1eaac84b00d5e4bb5098c3b0c87051ecf472e1b9 (patch) | |
| tree | 885beab9923617aa475ceec1d6ba0ca0ee42a00a /camlp4/Camlp4/Printers/OCamlr.ml | |
| parent | 44334bfe68059524733e0b717a0a275c6f216382 (diff) | |
Fix a bug in the revised pretty-printer
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7489 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4/Camlp4/Printers/OCamlr.ml')
| -rw-r--r-- | camlp4/Camlp4/Printers/OCamlr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/camlp4/Camlp4/Printers/OCamlr.ml b/camlp4/Camlp4/Printers/OCamlr.ml index 6a62d4c19..f13687a84 100644 --- a/camlp4/Camlp4/Printers/OCamlr.ml +++ b/camlp4/Camlp4/Printers/OCamlr.ml @@ -120,7 +120,7 @@ module Make (Syntax : Sig.Camlp4Syntax.S) = struct let () = o#node f e Ast.loc_of_expr in match e with [ <:expr< do { $e1$; $e2$ } >> -> - pp f "@[<hv0>@[<hv2>do {@ %a;@ %a@]@ }@]" o#expr e2 o#expr e1 + pp f "@[<hv0>@[<hv2>do {@ %a;@ %a@]@ }@]" o#expr e1 o#expr e2 | <:expr< do { $e$ } >> -> o#expr f e | <:expr< $e1$ := $e2$ >> -> |