diff options
| author | Pierre-Marie Pédrot | 2014-01-17 12:17:30 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-01-17 12:19:34 +0100 |
| commit | fd98174afe652fc80391ce27851afce21b8181f7 (patch) | |
| tree | 139a53fad7a563c9043c80ead2a2b4b13318b574 /printing/printer.ml | |
| parent | 1c6c4d1a4b7bc4c4a4a14df44c44a860bb0ce81e (diff) | |
Follow-up of bugfix for #3204: local definitions were not handled properly.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index eba91034b9..85b3c1836a 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -211,7 +211,7 @@ let pr_var_decl env (id,c,typ) = | None -> (mt ()) | Some c -> (* Force evaluation *) - let pb = pr_lconstr_env env c in + let pb = pr_lconstr_core true env c in let pb = if isCast c then surround pb else pb in (str" := " ++ pb ++ cut () ) in let pt = pr_ltype_core true env typ in @@ -223,7 +223,7 @@ let pr_rel_decl env (na,c,typ) = | None -> mt () | Some c -> (* Force evaluation *) - let pb = pr_lconstr_env env c in + let pb = pr_lconstr_core true env c in let pb = if isCast c then surround pb else pb in (str":=" ++ spc () ++ pb ++ spc ()) in let ptyp = pr_ltype_core true env typ in |