diff options
Diffstat (limited to 'printing/printmod.ml')
| -rw-r--r-- | printing/printmod.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/printing/printmod.ml b/printing/printmod.ml index a3dab28067..0c28e64f6d 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -223,9 +223,12 @@ let rec printable_body dir = state after the printing *) let print_modexpr' env mp mexpr = - States.with_state_protection (fun e -> eval_ppcmds (print_modexpr env mp [] e)) mexpr + States.with_state_protection + (fun e -> eval_ppcmds (print_modexpr env mp [] e)) mexpr + let print_modtype' env mp mty = - States.with_state_protection (fun e -> eval_ppcmds (print_modtype env mp [] e)) mty + States.with_state_protection + (fun e -> eval_ppcmds (print_modtype env mp [] e)) mty let print_module' env mp with_body mb = let name = print_modpath [] mp in |