diff options
author | 2014-01-17 12:17:30 +0100 | |
---|---|---|
committer | 2014-01-17 12:19:34 +0100 | |
commit | fd98174afe652fc80391ce27851afce21b8181f7 (patch) | |
tree | 139a53fad7a563c9043c80ead2a2b4b13318b574 /printing | |
parent | 1c6c4d1a4b7bc4c4a4a14df44c44a860bb0ce81e (diff) |
Follow-up of bugfix for #3204: local definitions were not handled properly.
Diffstat (limited to 'printing')
-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 eba91034b..85b3c1836 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 |