diff options
author | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-09-29 12:47:45 +0000 |
---|---|---|
committer | Daniel de Rauglaudre <daniel.de_rauglaudre@inria.fr> | 2001-09-29 12:47:45 +0000 |
commit | 823f866fc9167bfceaf508e87237652c06c84b13 (patch) | |
tree | 03f0599ccd47be88baf961ef188ebf6c21dae24a | |
parent | 0697c6771be26b8efecc4e01fb6203ffd8de1a14 (diff) |
-
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3814 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r-- | camlp4/etc/pr_o.ml | 2 | ||||
-rw-r--r-- | camlp4/etc/pr_r.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/etc/pr_o.ml b/camlp4/etc/pr_o.ml index 5c2b80965..c22bb998e 100644 --- a/camlp4/etc/pr_o.ml +++ b/camlp4/etc/pr_o.ml @@ -606,7 +606,7 @@ and module_expr me _ k = match me with [ <:module_expr< struct $list:s$ end >> -> let s = HVbox [: `S LR "struct"; list str_item s "" [: :] :] in - HVbox [: `HVbox [: :]; `s; `S LR "end"; k :] + HVbox [: `HVbox [: :]; `s; `HVbox [: `S LR "end"; k :] :] | <:module_expr< functor ($s$ : $mt$) -> $me$ >> -> let head = HVbox diff --git a/camlp4/etc/pr_r.ml b/camlp4/etc/pr_r.ml index 4bf751ad5..a80567d7d 100644 --- a/camlp4/etc/pr_r.ml +++ b/camlp4/etc/pr_r.ml @@ -599,7 +599,7 @@ and module_expr me k = match me with [ <:module_expr< struct $list:s$ end >> -> let s = HVbox [: `S LR "struct"; list str_item s [: :] :] in - HVbox [: `HVbox [: :]; `s; `S LR "end"; k :] + HVbox [: `HVbox [: :]; `s; `HVbox [: `S LR "end"; k :] :] | <:module_expr< functor ($s$ : $mt$) -> $me$ >> -> let head = HVbox |