diff options
| author | herbelin | 2000-10-04 15:56:30 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-04 15:56:30 +0000 |
| commit | a5529d6bdf015aef6b67aab8dd392075e721290b (patch) | |
| tree | c69d2d9b24aa29a60d74ec50c37cc340a3913461 /parsing | |
| parent | e9892fadb99ae56bf759c6013c7cccc07b31adab (diff) | |
Utilisation de local_strong plutôt que strong buggé avec défs locales
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@652 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/termast.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index c3608b5eea..239dd9fc1a 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -313,8 +313,7 @@ let ast_of_rawconstr = ast_of_raw let ast_of_constr at_top env t = let t' = if !print_casts then t - else Reduction.strong (fun _ _ -> strip_outer_cast) - empty_env Evd.empty t in + else Reduction.local_strong strip_outer_cast t in let avoid = if at_top then ids_of_context env else [] in ast_of_raw (Detyping.detype avoid (names_of_rel_context env) t') |