diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-20 14:46:45 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-20 14:46:45 +0000 |
| commit | e5840a45ad77ddf648871f142707924624311725 (patch) | |
| tree | 96c59ee8aad852db781d6abf9dcce7d50f5730aa /printing/printmod.ml | |
| parent | 12ca0c207832ee3138c3015726b4f7e615887cc5 (diff) | |
Fixing bug #2809 (anomaly when printing a module with notations due to
bad interaction between lazy evaluation of pp streams and temporary
effectful extension of global environment).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15457 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/printmod.ml')
| -rw-r--r-- | printing/printmod.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printmod.ml b/printing/printmod.ml index 1953935aa..8864ace29 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -221,9 +221,9 @@ let rec printable_body dir = state after the printing *) let print_modexpr' env mp mexpr = - States.with_state_protection (print_modexpr env mp []) 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 (print_modtype env mp []) 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 |