diff options
| -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 |