diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:50:36 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 16:50:36 +0100 |
commit | b3a8761790c0905aad8e5d3102fab606fe5e7fd6 (patch) | |
tree | ce5fbe8cb717bad677ad755e7875413d3e5d0e84 /printing | |
parent | 9cd987a07d3792dc200e15c5e792a25a1a99c9c6 (diff) | |
parent | 886a9c2fb25e32bd87b3fce38023b3e701134d23 (diff) |
Merge PR #6511: [econstr] Continue consolidation of EConstr API under `interp`.
Diffstat (limited to 'printing')
-rw-r--r-- | printing/ppconstr.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 3c7095505..dedad1990 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -701,13 +701,16 @@ let tag_var = tag Tag.variable | { CAst.v = CAppExpl ((None,f,us),[]) } -> str "@" ++ pr_cref f us | c -> pr prec c - let transf env c = + let transf env sigma c = if !Flags.beautify_file then - let r = Constrintern.for_grammar (Constrintern.intern_constr env) c in + let r = Constrintern.for_grammar (Constrintern.intern_constr env sigma) c in Constrextern.extern_glob_constr (Termops.vars_of_env env) r else c - let pr_expr prec c = pr prec (transf (Global.env()) c) + let pr_expr prec c = + let env = Global.env () in + let sigma = Evd.from_env env in + pr prec (transf env sigma c) let pr_simpleconstr = pr_expr lsimpleconstr |