diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-19 14:09:05 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-19 14:09:05 +0000 |
| commit | 4f02527d87b20bbdb8d8044097fe39c4191ed126 (patch) | |
| tree | b26d5516f0ac7acd120544c42a5ba1e924786c45 /parsing | |
| parent | c9a018b3a9d3eae70c323263bd93d094b8a1e30f (diff) | |
bug: Global.env() executé au chargement -> eta-expansion
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3459 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/printer.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index 7777ac540..72fe499e6 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -39,14 +39,14 @@ let tactic_initial_prec = Some ((tactic_syntax_universe,(9,0,0)),Ppextend.L) let prterm_env_at_top env = gentermpr_core true env let prterm_env env = gentermpr_core false env -let prterm = prterm_env (Global.env()) - let prtype_env env typ = prterm_env env typ -let prtype = prtype_env (Global.env()) - let prjudge_env env j = (prterm_env env j.uj_val, prterm_env env j.uj_type) -let prjudge = prjudge_env (Global.env()) + +(* NB do not remove the eta-redexes! Global.env() has side-effects... *) +let prterm t = prterm_env (Global.env()) t +let prtype t = prtype_env (Global.env()) t +let prjudge j = prjudge_env (Global.env()) j let fprterm_env a = warning "Fw printing not implemented, use CCI printing 1"; prterm_env a |