diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-22 13:14:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-22 13:14:49 +0000 |
| commit | 108bbfc6e970a59fa30961decaabefac97289a5c (patch) | |
| tree | 9bbf4e87ed8e0a86d1c046013489b72ba3739ddc /pretyping/evd.ml | |
| parent | 56d4015ec3e49d2cfba90d6617e041a365bdeec9 (diff) | |
Fixing uncaught exception in pr_evar_map (pr_global failed for unknown global ref)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14578 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index c73ff91a1..923b17b4f 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -753,7 +753,7 @@ let pr_evar_source = function | ImplicitArg (c,(n,ido),b) -> let id = Option.get ido in str "parameter " ++ pr_id id ++ spc () ++ str "of" ++ - spc () ++ Nametab.pr_global_env Idset.empty c + spc () ++ print_constr (constr_of_global c) | InternalHole -> str "internal placeholder" | TomatchTypeParameter (ind,n) -> nth n ++ str " argument of type " ++ print_constr (mkInd ind) |